[emacs-lisp] create unit test Hydra

This commit is contained in:
contrapunctus 2021-02-18 17:47:24 +05:30
parent 3f25c80773
commit c60c0a544a
1 changed files with 5 additions and 1 deletions

View File

@ -1729,6 +1729,10 @@ It'd be really cool to (recenter 3) when you /open/ a section, and (recenter) wh
("e" eval-defun "defun")
("l" eval-last-sexp "last sexp"))
(defhydra contrapunctus-el-test (:color blue)
("e" (cp/compile-project "Cask" "cask exec buttercup -L . --traceback pretty") "buttercup")
("r" ert "ert"))
(defhydra cp-el (:color blue)
"Emacs Lisp"
("r" ielm "REPL")
@ -1738,7 +1742,7 @@ It'd be really cool to (recenter 3) when you /open/ a section, and (recenter) wh
("j" xref-find-definitions "Jump to definition")
("b" (cp/compile-project "Cask" "cask build") "Compile")
("C" (cp/compile-project "Cask" "cask clean-elc") "clean")
("t" (cp/compile-project "Cask" "cask exec buttercup -L . --traceback pretty") "Test")
("t" (contrapunctus-el-test/body) "Test")
("i" (find-file "~/.emacs.d/init.org") "open init")
("d" dired-jump "dired-jump")