[hydra] update/extend compilation heads

This commit is contained in:
contrapunctus 2021-11-18 15:18:11 +05:30
parent 5a19d3bc36
commit 85e401f4ed
1 changed files with 7 additions and 4 deletions

View File

@ -1907,10 +1907,11 @@ With PREFIX argument and CMD not supplied - prompt for command."
#+END_SRC
** org
#+BEGIN_SRC emacs-lisp
(defun my-compile-org-lp ()
(defun my-compile-org-lp (&optional prefix)
(interactive)
(my-compile-project
"Makefile"
prefix
(format "ORG_PATH=%S make -k %s"
(shell-quote-argument
(expand-file-name "~/.emacs.d/elisp-git/org-mode/lisp/"))
@ -1924,7 +1925,8 @@ With PREFIX argument and CMD not supplied - prompt for command."
("t" my-org-hydra-set-tags "tags")
("C-t" org-todo "todo" :color red)
("n" my-org-hydra-nav/body "navigation")
("b" my-compile-org-lp "compile")
("b" (my-compile-org-lp) "compile")
("B" (my-compile-org-lp t) "compile (prompt)")
("C-b" contrapunctus-async-tangle "babel-tangle")
("e" my-org-eval-hydra/body "eval")
@ -1989,7 +1991,7 @@ With PREFIX argument and CMD not supplied - prompt for command."
"Emacs Lisp"
("c" my-elisp-bytecomp-hydra/body "byte compile")
("b" my-compile-org-lp "compile")
("B" (my-compile-project "Makefile" t) "compile (prompt)")
("B" (my-compile-org-lp "Makefile" t) "compile (prompt)")
("C-b" contrapunctus-async-tangle "babel-tangle")
("e" my-elisp-hydra-eval/body "Eval")
("E" my-elisp-hydra-debug/body "Debug")
@ -2149,7 +2151,8 @@ Don't try to check if there are files with a certain extension...it will lead to
#+BEGIN_SRC emacs-lisp
(my-defhydra my-shell-hydra (:color blue)
"Shell"
("e" my-shell-eval-hydra/body "eval"))
("e" my-shell-eval-hydra/body "eval")
("h" my-help-hydra/body "Help"))
(defhydra my-shell-eval-hydra (:color blue)
"Evaluate"