From c60c0a544a7ae4e8b07f63697513e85661623d39 Mon Sep 17 00:00:00 2001 From: contrapunctus Date: Thu, 18 Feb 2021 17:47:24 +0530 Subject: [PATCH] [emacs-lisp] create unit test Hydra --- init.org | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/init.org b/init.org index 1b3fc04..2e7bf37 100644 --- a/init.org +++ b/init.org @@ -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")