diff --git a/init.org b/init.org index f117ac8..6e83295 100644 --- a/init.org +++ b/init.org @@ -1039,17 +1039,18 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol :CUSTOM_ID: hydra-common-lisp :END: #+BEGIN_SRC emacs-lisp -(my-defhydra my-cl-hydra (:color blue) +(my-defhydra my-common-lisp-hydra (:color blue) "Common Lisp" ("R" slime-connect "connect") - ("h" my-cl-help-hydra/body "Documentation") - ("e" my-cl-hydra-eval/body "Eval") + ("h" my-common-lisp-help-hydra/body "Documentation") + ("e" my-common-lisp-hydra-eval/body "Eval") ("E" toggle-debug-on-error "tdoe") ("Q" toggle-debug-on-quit "tdoq") ("r" slime "REPL") ("j" slime-edit-definition "Jump to definition") ("p" slime-repl-set-package "Set package") - ("n" imenus "imenus")) + ("n" imenus "imenus") + ("v" slime-inspect-presentation-at-point "inspect")) #+END_SRC **** eval @@ -1057,7 +1058,7 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol :CUSTOM_ID: eval-2 :END: #+BEGIN_SRC emacs-lisp -(defhydra my-cl-hydra-eval (:color blue) +(defhydra my-common-lisp-hydra-eval (:color blue) "Eval (CL)" ("b" slime-eval-buffer "buffer") ("e" slime-eval-defun "defun") @@ -1071,7 +1072,7 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol :CUSTOM_ID: help-1 :END: #+BEGIN_SRC emacs-lisp -(defhydra my-cl-help-hydra (:color blue) +(defhydra my-common-lisp-help-hydra (:color blue) ("s" slime-documentation "slime") ("h" slime-documentation-lookup "CLHS") ("l" find-library "library") @@ -1179,7 +1180,7 @@ Don't try to check if there are files with a certain extension...it will lead to (cp-guile/body) (my-chicken-hydra/body))) ((derived-mode-p 'lisp-mode - 'slime-repl-mode) (my-cl-hydra/body)) + 'slime-repl-mode) (my-common-lisp-hydra/body)) ((derived-mode-p 'prolog-mode) (my-prolog-hydra/body)) ((derived-mode-p 'org-mode) (my-org-hydra/body)) ((derived-mode-p 'sh-mode) (my-shell-hydra/body))