lang/common-lisp: add localleader keys & hydras

Credit goes to @mfiano for these keybinds.

modules/lang/common-lisp/autoload/common-lisp.el

@@ -1,4 +1,4 @@
-;;; lang/common-lisp/autoload.el -*- lexical-binding: t; -*-
+;;; lang/common-lisp/autoload/common-lisp.el -*- lexical-binding: t; -*-
 
 ;;;###autoload
 (defun +common-lisp*sly-last-sexp (command &rest args)

modules/lang/common-lisp/autoload/hydras.el

@@ -0,0 +1,38 @@
+;;; lang/common-lisp/autoload/hydras.el -*- lexical-binding: t; -*-
+
+;;;###autoload (autoload '+common-lisp/navigation/body "lang/common-lisp/autoload/hydras" nil nil)
+(defhydra +common-lisp/navigation (:exit nil :hint nil :foreign-keys run)
+  "
+^^Definitions                           ^^Compiler Notes             ^^Stickers
+^^^^^^─────────────────────────────────────────────────────────────────────────────────────
+[_g_] Jump to definition                [_n_] Next compiler note     [_s_] Next sticker
+[_G_] Jump to definition (other window) [_N_] Previous compiler note [_S_] Previous sticker
+[_b_] Pop from definition
+[_q_] Exit
+"
+  ("g" sly-edit-definition)
+  ("G" sly-edit-definition-other-window)
+  ("b" sly-pop-find-definition-stack)
+  ("n" sly-next-note)
+  ("N" sly-previous-note)
+  ("s" sly-stickers-next-sticker)
+  ("S" sly-stickers-prev-sticker)
+  ("q" nil :exit t))
+
+;;;###autoload (autoload '+common-lisp/macrostep/body "lang/common-lisp/autoload/hydras" nil nil)
+(defhydra +common-lisp/macrostep (:exit nil :hint nil :foreign-keys run)
+  "
+Macro Expansion
+^^Definitions                           ^^Compiler Notes             ^^Stickers
+^^^^^^─────────────────────────────────────────────────────────────────────────────────────
+[_e_] Expand
+[_c_] Collapse
+[_n_] Next level
+[_N_] Previous level
+[_q_] Exit
+"
+  ("e" macrostep-expand)
+  ("c" macrostep-collapse)
+  ("n" macrostep-next-macro)
+  ("N" macrostep-prev-macro)
+  ("q" macrostep-collapse-all :exit t))

modules/lang/common-lisp/config.el

@@ -52,7 +52,61 @@ bin/doom while packages at compile-time (not a runtime though)."
     (advice-remove #'sly-check-version #'+common-lisp*refresh-sly-version))
   (advice-add #'sly-check-version :before #'+common-lisp*refresh-sly-version)
 
-  ;; evil integration
+  ;; FIXME Buffer/mode-local :desc's don't work yet
+  (map! :map sly-mode-map
+        :localleader
+        :desc "Start Sly" :n "'" #'sly
+        (:desc "help" :prefix "h"
+          :desc "Apropos"                        :n "a" #'sly-apropos
+          :desc "Who binds"                      :n "b" #'sly-who-binds
+          :desc "Disassemble symbol"             :n "d" #'sly-disassemble-symbol
+          :desc "Describe symbol"                :n "h" #'sly-describe-symbol
+          :desc "HyperSpec lookup"               :n "H" #'sly-hyperspec-lookup
+          :desc "Who macroexpands"               :n "m" #'sly-who-macroexpands
+          :desc "Apropos package"                :n "p" #'sly-apropos-package
+          :desc "Who references"                 :n "r" #'sly-who-references
+          :desc "Who specializes"                :n "s" #'sly-who-specializes
+          :desc "Who sets"                       :n "S" #'sly-who-sets
+          :desc "Who calls"                      :n "<" #'sly-who-calls
+          :desc "Calls who"                      :n ">" #'sly-calls-who)
+        (:desc "compile" :prefix "c"
+          :desc "Compile file"                   :n "c" #'sly-compile-file
+          :desc "Compile/load file"              :n "C" #'sly-compile-and-load-file
+          :desc "Compile defun"                  :n "f" #'sly-compile-defun
+          :desc "Load file"                      :n "l" #'sly-load-file
+          :desc "Remove notes"                   :n "n" #'sly-remove-notes
+          :desc "Compile region"                 :n "r" #'sly-compile-region)
+        (:desc "evaluate" :prefix "e"
+          :desc "Evaluate buffer"                :n "b" #'sly-eval-buffer
+          :desc "Evaluate last expression"       :n "e" #'sly-eval-last-expression
+          :desc "Evaluate/print last expression" :n "E" #'sly-eval-print-last-expression
+          :desc "Evaluate defun"                 :n "f" #'sly-eval-defun
+          :desc "Undefine function"              :n "F" #'sly-undefine-function
+          :desc "Evaluate region"                :n "r" #'sly-eval-region)
+        (:desc "go"                              :n "g" #'+common-lisp/navigation/body)
+        (:desc "macro" :prefix "m"
+          :desc "Macro-expand 1 level"           :n "e" #'sly-macroexpand-1
+          :desc "Macro-expand all"               :n "E" #'sly-macroexpand-all
+          :desc "Macro stepper"                  :n "s" #'+common-lisp/macrostep/body)
+        (:desc "repl" :prefix "r"
+          :desc "Clear REPL"                     :n "c" #'sly-mrepl-clear-repl
+          :desc "Quit Lisp"                      :n "q" #'sly-quit-lisp
+          :desc "Restart Lisp"                   :n "r" #'sly-restart-inferior-lisp
+          :desc "Sync REPL"                      :n "s" #'sly-mrepl-sync)
+        (:desc "stickers" :prefix "s"
+          :desc "Toggle break on sticker"        :n "b" #'sly-stickers-toggle-break-on-stickers
+          :desc "Clear defun stickers"           :n "c" #'sly-stickers-clear-defun-stickers
+          :desc "Clear buffer stickers"          :n "C" #'sly-stickers-clear-buffer-stickers
+          :desc "Fetch sticker recordings"       :n "f" #'sly-stickers-fetch
+          :desc "Replay sticker recordings"      :n "r" #'sly-stickers-replay
+          :desc "Add/remove stickers"            :n "s" #'sly-stickers-dwim)
+        (:desc "trace" :prefix "t"
+          :desc "Toggle tracing"                 :n "t" #'sly-toggle-trace-fdefinition
+          :desc "Toggle fancy tracing"           :n "T" #'sly-toggle-fancy-trace
+          :desc "Un-trace 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)
     (add-hook 'sly-popup-buffer-mode-hook #'evil-normalize-keymaps)
     (unless evil-move-beyond-eol