Add SLIME inspector keybinding

This commit is contained in:
contrapunctus 2022-11-07 11:54:54 +05:30
parent bc396c2457
commit fb9da3127e
1 changed files with 8 additions and 7 deletions

View File

@ -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))