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

Merge pull request #1287 from mfiano/common-lisp-bindings-fix-1

Browse source 
Changed some wrong common-lisp bindings
This commit is contained in:
Henrik Lissner 2019-04-02 15:35:59 -04:00 • committed by GitHub
commit 5e7638d061
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 16 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -148,12 +148,19 @@ bin/doom while packages at compile-time (not a runtime though)."
'(sly-db-mode sly-inspector-mode sly-popup-buffer-mode sly-xref-mode) '(sly-db-mode sly-inspector-mode sly-popup-buffer-mode sly-xref-mode)
'normal) 'normal)
(evil-define-key 'insert sly-mrepl-mode-map (evil-define-key 'insert sly-mrepl-mode-map
[S-return] #'newline-and-indent) [S-return] #'newline-and-indent
[backspace] #'sp-backward-delete-char
[up] (λ! () (evil-goto-line) (comint-previous-input 1))
[down] (λ! () (evil-goto-line) (comint-next-input 1)))
(evil-define-key 'normal sly-parent-map (evil-define-key 'normal sly-parent-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
(kbd "C-t") 'sly-pop-find-definition-stack
"q" 'quit-window)
(evil-define-key 'normal sly-db-mode-map (evil-define-key 'normal sly-db-mode-map
[follow-link] 'mouse-face [follow-link] 'mouse-face
[mouse-2] 'sly-db-default-action/mouse [mouse-2] 'sly-db-default-action/mouse
[remap quit-window] 'sly-db-quit
(kbd "C-i") 'sly-db-cycle (kbd "C-i") 'sly-db-cycle
(kbd "C-j") 'sly-db-down (kbd "C-j") 'sly-db-down
(kbd "C-k") 'sly-db-up (kbd "C-k") 'sly-db-up
@ -199,35 +206,25 @@ bin/doom while packages at compile-time (not a runtime though)."
"S" 'sly-db-show-frame-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] 'backward-button
[mouse-1] 'sly-inspector-operate-on-click [return] 'push-button
[mouse-2] 'sly-inspector-operate-on-click [(shift tab)] 'backward-button
[mouse-6] 'sly-inspector-pop
[mouse-7] 'sly-inspector-next
[return] 'sly-inspector-operate-on-point
[(shift tab)] 'sly-inspector-previous-inspectable-object
(kbd "<M-return>") 'sly-mrepl-copy-part-to-repl (kbd "<M-return>") 'sly-mrepl-copy-part-to-repl
(kbd "C-i") 'sly-inspector-next-inspectable-object (kbd "C-i") 'next-button
(kbd "C-k") 'sly-inspector-pop (kbd "C-m") 'push-button
(kbd "C-m") 'sly-inspector-operate-on-point
"." 'sly-inspector-show-source
"D" 'sly-inspector-describe-inspectee
"e" 'sly-inspector-eval "e" 'sly-inspector-eval
"gb" 'sly-inspector-pop "gb" 'sly-inspector-pop
"gj" 'sly-inspector-next "gj" 'sly-inspector-next
"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
"j" 'sly-inspector-next
"h" 'sly-inspector-history "h" 'sly-inspector-history
"k" 'sly-inspector-previous-inspectable-object "k" 'backward-button
"K" 'sly-inspector-describe "K" 'sly-inspector-describe-inspectee
"p" 'sly-inspector-pprint "p" 'sly-button-pretty-print
"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
(kbd "C-t") 'sly-pop-find-definition-stack)
(evil-define-key 'normal sly-xref-mode-map (evil-define-key 'normal sly-xref-mode-map
[return] 'sly-goto-xref [return] 'sly-goto-xref
(kbd "S-<return>") 'sly-show-xref (kbd "S-<return>") 'sly-show-xref