Add emacs-ert-mode + ert test defuns
This commit is contained in:
parent
0900c9b7fb
commit
272993c4b3
4 changed files with 56 additions and 1 deletions
|
@ -72,13 +72,32 @@
|
|||
"define-text-object" "add-yas-minor-mode" "define-docset"
|
||||
"define-org-link!" "define-company-backend" "define-org-section"))
|
||||
"!\\)")
|
||||
(1 font-lock-keyword-face append))))
|
||||
(1 font-lock-keyword-face append))
|
||||
;; Ert
|
||||
(,(concat
|
||||
"("
|
||||
(regexp-opt '("ert-deftest") t)
|
||||
" \\([^ ]+\\)")
|
||||
(1 font-lock-keyword-face)
|
||||
(2 font-lock-function-name-face))))
|
||||
|
||||
;; Real go-to-definition for elisp
|
||||
(map! :map emacs-lisp-mode-map
|
||||
:m "gd" 'narf/elisp-find-function-at-pt
|
||||
:m "gD" 'narf/elisp-find-function-at-pt-other-window)
|
||||
|
||||
(define-minor-mode emacs-ert-mode
|
||||
"Ert test file minor mode"
|
||||
:lighter " Ert" :keymap (make-sparse-keymap)
|
||||
(add-yas-minor-mode! 'emacs-ert-mode))
|
||||
(associate! emacs-ert-mode :match "/test/.+-test\\.el$")
|
||||
|
||||
(map! :map emacs-lisp-mode-map
|
||||
(:localleader
|
||||
:n "tr" 'narf/ert-rerun-test
|
||||
:n "ta" 'narf/ert-run-all-tests
|
||||
:n "ts" 'narf/ert-run-test))
|
||||
|
||||
(use-package slime :defer t
|
||||
:config
|
||||
(setq inferior-lisp-program "clisp"))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue