[hydra] create Elisp debug hydra
This commit is contained in:
parent
b8ff880ee1
commit
3faa88bc40
12
init.org
12
init.org
|
@ -975,7 +975,7 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
|
|||
(defhydra cp-el (:color blue)
|
||||
"Emacs Lisp"
|
||||
("r" ielm "REPL")
|
||||
("D" (funcall-interactively #'eval-defun t) "Debug")
|
||||
("E" cp-el-debug/body "Debug")
|
||||
("e" cp-el-eval/body "Eval")
|
||||
("h" helpful-at-point "Help")
|
||||
("j" xref-find-definitions "Jump to definition")
|
||||
|
@ -994,8 +994,6 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
|
|||
("w" contrapunctus-window-hydra/body "window")
|
||||
("c" chronometrist "chronometrist")
|
||||
("m" magit-status "Magit")
|
||||
("E" toggle-debug-on-error "tdoe")
|
||||
("Q" toggle-debug-on-quit "tdoq")
|
||||
("G" contrapunctus-programming-hydra/body "up"))
|
||||
#+END_SRC
|
||||
**** eval
|
||||
|
@ -1011,6 +1009,14 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
|
|||
("e" (cp/compile-project "Cask" "cask exec buttercup -L . --traceback pretty") "buttercup")
|
||||
("r" ert "ert"))
|
||||
#+END_SRC
|
||||
**** debug
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defhydra cp-el-debug (:color blue)
|
||||
"Debug"
|
||||
("e" (funcall-interactively #'eval-defun t) "Debug")
|
||||
("o" toggle-debug-on-error "tdoe")
|
||||
("u" toggle-debug-on-quit "tdoq"))
|
||||
#+END_SRC
|
||||
*** Common Lisp
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defhydra cp-cl (:color blue)
|
||||
|
|
Loading…
Reference in New Issue