Add emacs-ert-mode + ert test defuns

This commit is contained in:
Henrik Lissner 2016-03-03 01:34:41 -05:00
parent 0900c9b7fb
commit 272993c4b3
4 changed files with 56 additions and 1 deletions

View file

@ -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"))