[hydra] use my-compile-project

This commit is contained in:
contrapunctus 2021-09-01 17:50:09 +05:30
parent 4370fa6a10
commit 036a7388b6
1 changed files with 4 additions and 2 deletions

View File

@ -1551,7 +1551,8 @@ With PREFIX argument and CMD not supplied - prompt for command."
#+BEGIN_SRC emacs-lisp
(my-defhydra contrapunctus-general-hydra (:color blue)
"What command?"
("b" compile "compile")
("b" (my-compile-project "Makefile") "compile")
("B" (my-compile-project "Makefile" t) "compile (prompt)")
("h" my-help-hydra/body "Help")
("E" toggle-debug-on-error "tdoe")
("Q" toggle-debug-on-quit "tdoq"))
@ -1770,7 +1771,8 @@ With PREFIX argument and CMD not supplied - prompt for command."
#+BEGIN_SRC emacs-lisp
(my-defhydra my-lilypond-hydra (:color blue)
"Lilypond"
("b" (my-compile-project "main.ly" "./mkly dev") "Compile")
("b" (my-compile-project "main.ly" nil "./mkly dev") "Compile")
("B" (my-compile-project "main.ly" t "./mkly dev") "Compile")
("h" my-help-hydra/body "Help")
("E" toggle-debug-on-error "tdoe")