(Emacs/config)+which-key descriptions for sly bindings

This commit is contained in:
2024-06-12 02:04:27 +01:00
parent 740a8eda15
commit ed5e5a99a8

View File

@@ -2927,7 +2927,6 @@ learnt the basics of org).
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package org-msg (use-package org-msg
:straight t :straight t
:defer t
:hook :hook
(message-mode-hook . org-msg-mode) (message-mode-hook . org-msg-mode)
(notmuch-message-mode-hook . org-msg-mode) (notmuch-message-mode-hook . org-msg-mode)
@@ -3568,19 +3567,24 @@ Here I just setup Sly to use ~sbcl~.
(shell-leader (shell-leader
"s" #'sly-mrepl) "s" #'sly-mrepl)
(nmap (nmap
:keymaps '(lisp-mode-map sly-mrepl-mode-map) :keymaps 'lisp-mode-map
"gr" #'sly-eval-buffer "gr" #'sly-eval-buffer
"gd" #'sly-edit-definition "gd" #'sly-edit-definition
"gR" #'sly-who-calls) "gR" #'sly-who-calls)
(local-leader (local-leader
:keymaps '(lisp-mode-map sly-mrepl-mode-map) :keymaps '(sly-mrepl-mode-map lisp-mode-map)
"s" #'sly-mrepl "a" '(sly-apropos :which-key "Apropos")
"c" #'sly-compile-file "d" '(sly-describe-symbol :which-key "Describe symbol")
"a" #'sly-apropos "D" '(sly-documentation-lookup :which-key "Lookup on lispworks"))
"d" #'sly-describe-symbol (local-leader
"D" #'sly-documentation-lookup :keymaps 'sly-mrepl-mode-map
"S" #'sly-mrepl-sync "s" '(sly-mrepl-shortcut :which-key "Shortcut"))
"E" #'sly-eval-defun) (local-leader
:keymaps 'lisp-mode-map
"l" '(sly-load-file :which-key "Load file")
"c" '(sly-compile-defun :which-key "Compile defun")
"C" '(sly-compile-file :which-key "Compile file")
"S" '(sly-mrepl-sync :which-key "Sync REPL"))
(local-leader (local-leader
:keymaps 'lisp-mode-map :keymaps 'lisp-mode-map
:infix "e" :infix "e"