[hydra] update/extend compilation heads
This commit is contained in:
parent
5a19d3bc36
commit
85e401f4ed
11
init.org
11
init.org
|
@ -1907,10 +1907,11 @@ With PREFIX argument and CMD not supplied - prompt for command."
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
** org
|
** org
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(defun my-compile-org-lp ()
|
(defun my-compile-org-lp (&optional prefix)
|
||||||
(interactive)
|
(interactive)
|
||||||
(my-compile-project
|
(my-compile-project
|
||||||
"Makefile"
|
"Makefile"
|
||||||
|
prefix
|
||||||
(format "ORG_PATH=%S make -k %s"
|
(format "ORG_PATH=%S make -k %s"
|
||||||
(shell-quote-argument
|
(shell-quote-argument
|
||||||
(expand-file-name "~/.emacs.d/elisp-git/org-mode/lisp/"))
|
(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")
|
("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" 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")
|
("C-b" contrapunctus-async-tangle "babel-tangle")
|
||||||
("e" my-org-eval-hydra/body "eval")
|
("e" my-org-eval-hydra/body "eval")
|
||||||
|
|
||||||
|
@ -1989,7 +1991,7 @@ With PREFIX argument and CMD not supplied - prompt for command."
|
||||||
"Emacs Lisp"
|
"Emacs Lisp"
|
||||||
("c" my-elisp-bytecomp-hydra/body "byte compile")
|
("c" my-elisp-bytecomp-hydra/body "byte compile")
|
||||||
("b" my-compile-org-lp "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")
|
("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")
|
||||||
|
@ -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
|
#+BEGIN_SRC emacs-lisp
|
||||||
(my-defhydra my-shell-hydra (:color blue)
|
(my-defhydra my-shell-hydra (:color blue)
|
||||||
"Shell"
|
"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)
|
(defhydra my-shell-eval-hydra (:color blue)
|
||||||
"Evaluate"
|
"Evaluate"
|
||||||
|
|
Loading…
Reference in New Issue