[hydra] use my-compile-project instead of compile

This commit is contained in:
contrapunctus 2021-08-08 23:30:17 +05:30
parent 1aa15a842c
commit e20ed27cab
1 changed files with 12 additions and 2 deletions

View File

@ -1533,7 +1533,12 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
("t" my-org-hydra-set-tags "tags") ("t" my-org-hydra-set-tags "tags")
("C-t" org-todo "todo" :color red) ("C-t" org-todo "todo" :color red)
("n" my-org-hydra-nav/body "navigation") ("n" my-org-hydra-nav/body "navigation")
("b" compile "compile") ("b" (my-compile-project
"Makefile"
(format "ORG_PATH=%S make -k %s"
(shell-quote-argument
(expand-file-name "~/.emacs.d/elisp-git/org-mode/lisp/"))
"compile")) "compile")
("C-b" contrapunctus-async-tangle "babel-tangle") ("C-b" contrapunctus-async-tangle "babel-tangle")
("E" toggle-debug-on-error "tdoe") ("E" toggle-debug-on-error "tdoe")
@ -1587,7 +1592,12 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
(my-defhydra my-elisp-hydra (:color blue) (my-defhydra my-elisp-hydra (:color blue)
"Emacs Lisp" "Emacs Lisp"
("c" my-elisp-bytecomp-hydra/body "byte compile") ("c" my-elisp-bytecomp-hydra/body "byte compile")
("b" compile "compile") ("b" (my-compile-project
"Makefile"
(format "ORG_PATH=%S make -k %s"
(shell-quote-argument
(expand-file-name "~/.emacs.d/elisp-git/org-mode/lisp/"))
"compile")) "compile")
("C-b" contrapunctus-async-tangle "babel-tangle") ("C-b" contrapunctus-async-tangle "babel-tangle")
("e" my-elisp-hydra-eval/body "Eval") ("e" my-elisp-hydra-eval/body "Eval")
("E" my-elisp-hydra-debug/body "Debug") ("E" my-elisp-hydra-debug/body "Debug")