contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[hydra] make Common Lisp-specific help hydra

This commit is contained in:
contrapunctus 2021-08-16 10:28:15 +05:30
parent 68386ab2c4
commit 7bf9df4c83
1 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
init.org
View File

@ -1409,7 +1409,6 @@ Add these common operations to the hydra -
("C" contrapunctus-mc-hydra/body "multiple cursors")
("d" dired-jump "dired-jump")
("D" (cp-insert-timestamp t) "date")
("h" my-help-hydra/body "Help")
("i" (find-file "~/.emacs.d/init.org") "open init")
("I" contrapunctus-info-hydra/body "Info")
("k" (kill-buffer (current-buffer)) "kill" :color red)
@ -1514,6 +1513,7 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
(my-defhydra contrapunctus-general-hydra (:color blue)
"What command?"
("b" compile "compile")
("h" my-help-hydra/body "Help")
("E" toggle-debug-on-error "tdoe")
("Q" toggle-debug-on-quit "tdoq"))
#+END_SRC
@ -1568,6 +1568,7 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
("b" my-compile-org-lp "compile")
("C-b" contrapunctus-async-tangle "babel-tangle")
("h" my-help-hydra/body "Help")
("E" toggle-debug-on-error "tdoe")
("Q" toggle-debug-on-quit "tdoq"))
@ -1624,6 +1625,7 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
("C-b" contrapunctus-async-tangle "babel-tangle")
("e" my-elisp-hydra-eval/body "Eval")
("E" my-elisp-hydra-debug/body "Debug")
("h" my-help-hydra/body "Help")
("j" xref-find-definitions "Jump to definition")
("J" org-babel-tangle-jump-to-org "Jump to definition (Org)")
("r" ielm "REPL")
@ -1665,23 +1667,24 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
(my-defhydra my-cl-hydra (:color blue)
"Common Lisp"
("C" slime-connect "connect")
("d" my-cl-hydra-doc/body "Documentation")
("h" my-cl-help-hydra/body "Documentation")
("e" my-cl-hydra-eval/body "Eval")
("E" toggle-debug-on-error "tdoe")
("Q" toggle-debug-on-quit "tdoq")
("r" slime "REPL"))
#+END_SRC
**** eval
#+BEGIN_SRC emacs-lisp
(defhydra my-cl-hydra-eval (:color blue)
("b" slime-eval-buffer "buffer")
("e" slime-eval-defun "defun")
("E" toggle-debug-on-error "tdoe")
("Q" toggle-debug-on-quit "tdoq"))
("e" slime-eval-defun "defun"))
#+END_SRC
**** documentation
#+BEGIN_SRC emacs-lisp
(defhydra my-cl-hydra-doc (:color blue)
("d" slime-documentation "slime")
("e" slime-documentation-lookup "CLHS"))
(defhydra my-cl-help-hydra (:color blue)
("s" slime-documentation "slime")
("h" slime-documentation-lookup "CLHS")
("m" man "man page"))
#+END_SRC
*** Scheme
**** eval
@ -1699,6 +1702,8 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
"CHICKEN Scheme"
("e" cp-scm-eval/body "Eval")
("r" run-chicken "REPL")
("h" my-help-hydra/body "Help")
("E" toggle-debug-on-error "tdoe")
("Q" toggle-debug-on-quit "tdoq"))
#+END_SRC
@ -1708,6 +1713,8 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
"Guile"
("e" cp-scm-eval/body "Eval")
("r" run-guile "REPL")
("h" my-help-hydra/body "Help")
("E" toggle-debug-on-error "tdoe")
("Q" toggle-debug-on-quit "tdoq"))
#+END_SRC
@ -1716,6 +1723,8 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
(my-defhydra my-lilypond-hydra (:color blue)
"Lilypond"
("b" (my-compile-project "main.ly" "./mkly dev") "Compile")
("h" my-help-hydra/body "Help")
("E" toggle-debug-on-error "tdoe")
("Q" toggle-debug-on-quit "tdoq"))
#+END_SRC