Add SLIME inspector keybinding
This commit is contained in:
parent
bc396c2457
commit
fb9da3127e
15
init.org
15
init.org
|
@ -1039,17 +1039,18 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
|
||||||
:CUSTOM_ID: hydra-common-lisp
|
:CUSTOM_ID: hydra-common-lisp
|
||||||
:END:
|
:END:
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(my-defhydra my-cl-hydra (:color blue)
|
(my-defhydra my-common-lisp-hydra (:color blue)
|
||||||
"Common Lisp"
|
"Common Lisp"
|
||||||
("R" slime-connect "connect")
|
("R" slime-connect "connect")
|
||||||
("h" my-cl-help-hydra/body "Documentation")
|
("h" my-common-lisp-help-hydra/body "Documentation")
|
||||||
("e" my-cl-hydra-eval/body "Eval")
|
("e" my-common-lisp-hydra-eval/body "Eval")
|
||||||
("E" toggle-debug-on-error "tdoe")
|
("E" toggle-debug-on-error "tdoe")
|
||||||
("Q" toggle-debug-on-quit "tdoq")
|
("Q" toggle-debug-on-quit "tdoq")
|
||||||
("r" slime "REPL")
|
("r" slime "REPL")
|
||||||
("j" slime-edit-definition "Jump to definition")
|
("j" slime-edit-definition "Jump to definition")
|
||||||
("p" slime-repl-set-package "Set package")
|
("p" slime-repl-set-package "Set package")
|
||||||
("n" imenus "imenus"))
|
("n" imenus "imenus")
|
||||||
|
("v" slime-inspect-presentation-at-point "inspect"))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
|
||||||
**** eval
|
**** eval
|
||||||
|
@ -1057,7 +1058,7 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
|
||||||
:CUSTOM_ID: eval-2
|
:CUSTOM_ID: eval-2
|
||||||
:END:
|
:END:
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(defhydra my-cl-hydra-eval (:color blue)
|
(defhydra my-common-lisp-hydra-eval (:color blue)
|
||||||
"Eval (CL)"
|
"Eval (CL)"
|
||||||
("b" slime-eval-buffer "buffer")
|
("b" slime-eval-buffer "buffer")
|
||||||
("e" slime-eval-defun "defun")
|
("e" slime-eval-defun "defun")
|
||||||
|
@ -1071,7 +1072,7 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
|
||||||
:CUSTOM_ID: help-1
|
:CUSTOM_ID: help-1
|
||||||
:END:
|
:END:
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(defhydra my-cl-help-hydra (:color blue)
|
(defhydra my-common-lisp-help-hydra (:color blue)
|
||||||
("s" slime-documentation "slime")
|
("s" slime-documentation "slime")
|
||||||
("h" slime-documentation-lookup "CLHS")
|
("h" slime-documentation-lookup "CLHS")
|
||||||
("l" find-library "library")
|
("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)
|
(cp-guile/body)
|
||||||
(my-chicken-hydra/body)))
|
(my-chicken-hydra/body)))
|
||||||
((derived-mode-p 'lisp-mode
|
((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 'prolog-mode) (my-prolog-hydra/body))
|
||||||
((derived-mode-p 'org-mode) (my-org-hydra/body))
|
((derived-mode-p 'org-mode) (my-org-hydra/body))
|
||||||
((derived-mode-p 'sh-mode) (my-shell-hydra/body))
|
((derived-mode-p 'sh-mode) (my-shell-hydra/body))
|
||||||
|
|
Loading…
Reference in New Issue