emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix: Improve common-lisp module bindings

Browse source
This commit is contained in:
Michael Fiano 2018-12-02 01:51:48 -05:00
parent 89c1180b73
commit 261750c158
1 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

21
modules/lang/common-lisp/config.el
View file

@ -80,6 +80,8 @@ bin/doom while packages at compile-time (not a runtime though)."
(:prefix "h" (:prefix "h"
:n "<" #'sly-who-calls :n "<" #'sly-who-calls
:n ">" #'sly-calls-who :n ">" #'sly-calls-who
:n "~" #'hyperspec-lookup-format
:n "#" #'hyperspec-lookup-reader-macro
:n "a" #'sly-apropos :n "a" #'sly-apropos
:n "b" #'sly-who-binds :n "b" #'sly-who-binds
:n "d" #'sly-disassemble-symbol :n "d" #'sly-disassemble-symbol
@ -96,14 +98,14 @@ bin/doom while packages at compile-time (not a runtime though)."
:n "f" #'sly-compile-defun :n "f" #'sly-compile-defun
:n "l" #'sly-load-file :n "l" #'sly-load-file
:n "n" #'sly-remove-notes :n "n" #'sly-remove-notes
:n "r" #'sly-compile-region) :v "r" #'sly-compile-region)
(:prefix "e" (:prefix "e"
:n "b" #'sly-eval-buffer :n "b" #'sly-eval-buffer
:n "e" #'sly-eval-last-expression :n "e" #'sly-eval-last-expression
:n "E" #'sly-eval-print-last-expression :n "E" #'sly-eval-print-last-expression
:n "f" #'sly-eval-defun :n "f" #'sly-eval-defun
:n "F" #'sly-undefine-function :n "F" #'sly-undefine-function
:n "r" #'sly-eval-region) :v "r" #'sly-eval-region)
(:prefix "m" (:prefix "m"
:n "e" #'+common-lisp/macrostep/body :n "e" #'+common-lisp/macrostep/body
:n "E" #'macrostep-expand) :n "E" #'macrostep-expand)
@ -124,8 +126,6 @@ bin/doom while packages at compile-time (not a runtime though)."
:n "T" #'sly-toggle-fancy-trace :n "T" #'sly-toggle-fancy-trace
:n "u" #'sly-untrace-all)) :n "u" #'sly-untrace-all))
;; Since `evil-collection-slime' exists, but not `evil-collection-sly', we
;; simply copy it
(when (featurep! :feature evil +everywhere) (when (featurep! :feature evil +everywhere)
(add-hook 'sly-mode-hook #'evil-normalize-keymaps) (add-hook 'sly-mode-hook #'evil-normalize-keymaps)
(add-hook 'sly-popup-buffer-mode-hook #'evil-normalize-keymaps) (add-hook 'sly-popup-buffer-mode-hook #'evil-normalize-keymaps)
@ -151,7 +151,6 @@ bin/doom while packages at compile-time (not a runtime though)."
(kbd "C-m") 'sly-db-default-action (kbd "C-m") 'sly-db-default-action
(kbd "C-S-j") 'sly-db-details-down (kbd "C-S-j") 'sly-db-details-down
(kbd "C-S-k") 'sly-db-details-up (kbd "C-S-k") 'sly-db-details-up
(kbd "RET") 'sly-db-default-action
"]" 'sly-db-details-down "]" 'sly-db-details-down
"[" 'sly-db-details-up "[" 'sly-db-details-up
"0" 'sly-db-invoke-restart-0 "0" 'sly-db-invoke-restart-0
@ -188,7 +187,7 @@ bin/doom while packages at compile-time (not a runtime though)."
"q" 'sly-db-quit "q" 'sly-db-quit
"R" 'sly-db-return-from-frame "R" 'sly-db-return-from-frame
"s" 'sly-db-step "s" 'sly-db-step
"S" 'sly-db-show-source "S" 'sly-db-show-frame-source
"t" 'sly-db-toggle-details) "t" 'sly-db-toggle-details)
(evil-define-key 'normal sly-inspector-mode-map (evil-define-key 'normal sly-inspector-mode-map
[backtab] 'sly-inspector-previous-inspectable-object [backtab] 'sly-inspector-previous-inspectable-object
@ -198,13 +197,15 @@ bin/doom while packages at compile-time (not a runtime though)."
[mouse-7] 'sly-inspector-next [mouse-7] 'sly-inspector-next
[return] 'sly-inspector-operate-on-point [return] 'sly-inspector-operate-on-point
[(shift tab)] 'sly-inspector-previous-inspectable-object [(shift tab)] 'sly-inspector-previous-inspectable-object
(kbd "<M-return>") 'sly-mrepl-copy-part-to-repl
(kbd "C-i") 'sly-inspector-next-inspectable-object (kbd "C-i") 'sly-inspector-next-inspectable-object
(kbd "C-k") 'sly-inspector-pop (kbd "C-k") 'sly-inspector-pop
(kbd "C-m") 'sly-inspector-operate-on-point (kbd "C-m") 'sly-inspector-operate-on-point
"." 'sly-inspector-show-source "." 'sly-inspector-show-source
"D" 'sly-inspector-describe-inspectee
"e" 'sly-inspector-eval "e" 'sly-inspector-eval
"gb" 'sly-inspector-pop
"gj" 'sly-inspector-next "gj" 'sly-inspector-next
"gk" 'sly-inspector-pop
"gr" 'sly-inspector-reinspect "gr" 'sly-inspector-reinspect
"gR" 'sly-inspector-fetch-all "gR" 'sly-inspector-fetch-all
"gv" 'sly-inspector-toggle-verbose "gv" 'sly-inspector-toggle-verbose
@ -213,15 +214,15 @@ bin/doom while packages at compile-time (not a runtime though)."
"k" 'sly-inspector-previous-inspectable-object "k" 'sly-inspector-previous-inspectable-object
"K" 'sly-inspector-describe "K" 'sly-inspector-describe
"p" 'sly-inspector-pprint "p" 'sly-inspector-pprint
"q" 'sly-inspector-quit "q" 'sly-inspector-quit)
(evil-define-key 'normal sly-mode-map (evil-define-key 'normal sly-mode-map
(kbd "C-t") 'sly-pop-find-definition-stack) (kbd "C-t") 'sly-pop-find-definition-stack)
(evil-define-key 'normal sly-popup-buffer-mode-map (evil-define-key 'normal sly-popup-buffer-mode-map
(kbd "C-t") 'sly-pop-find-definition-stack (kbd "C-t") 'sly-pop-find-definition-stack
"q" 'quit-window) "q" 'quit-window)
(evil-define-key 'normal sly-xref-mode-map (evil-define-key 'normal sly-xref-mode-map
(kbd "RET") 'sly-goto-xref [return] 'sly-goto-xref
(kbd "S-<return>") 'sly-goto-xref (kbd "S-<return>") 'sly-show-xref
(kbd "C-j") 'sly-xref-next-line (kbd "C-j") 'sly-xref-next-line
(kbd "C-k") 'sly-xref-prev-line (kbd "C-k") 'sly-xref-prev-line
"]" 'sly-xref-next-line "]" 'sly-xref-next-line