diff --git a/modules/lang/common-lisp/autoload/hydras.el b/modules/lang/common-lisp/autoload/hydras.el index aa8ac79bd..3257353a9 100644 --- a/modules/lang/common-lisp/autoload/hydras.el +++ b/modules/lang/common-lisp/autoload/hydras.el @@ -1,24 +1,5 @@ ;;; 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) " diff --git a/modules/lang/common-lisp/config.el b/modules/lang/common-lisp/config.el index d4134d8fc..a498d621a 100644 --- a/modules/lang/common-lisp/config.el +++ b/modules/lang/common-lisp/config.el @@ -30,7 +30,6 @@ (sp-local-pair "'" "'" :actions nil) (sp-local-pair "`" "`" :actions nil)) - ;; (defun +common-lisp|cleanup-sly-maybe () "Kill processes and leftover buffers when killing the last sly buffer." (unless (cl-loop for buf in (delq (current-buffer) (buffer-list)) @@ -70,7 +69,14 @@ bin/doom while packages at compile-time (not a runtime though)." (map! :map sly-mode-map :localleader :n "'" #'sly - :n "g" #'+common-lisp/navigation/body + (:prefix "g" + :n "d" #'sly-edit-definition + :n "D" #'sly-edit-definition-other-window + :n "b" #'sly-pop-find-definition-stack + :n "n" #'sly-next-note + :n "N" #'sly-previous-note + :n "s" #'sly-stickers-next-sticker + :n "S" #'sly-stickers-prev-sticker) (:prefix "h" :n "a" #'sly-apropos :n "b" #'sly-who-binds