feat(emacs): Misc. tooling

users/crumb/programs/emacs/modules/syd-tooling.el

@@ -5,7 +5,7 @@
   (when-let* ((buf (get-buffer "*lsp-help*")))
     (kill-buffer buf))
   (call-interactively #'lsp-describe-thing-at-point)
-  (let ((buf (get-buffer "*lsp-help*")))
+  (when-let* ((buf (get-buffer "*lsp-help*")))
     (when (get-buffer-window-list buf)
       ;; Bury the buffer so the popup system has full control over how it's
       ;; selected.
@@ -30,6 +30,8 @@
   (setq lsp-headerline-breadcrumb-enable nil)
   :hook (lsp-mode . lsp-enable-which-key-integration)
   :commands lsp
+  :general (:keymaps 'syd-leader-code-map
+            "a" #'lsp-execute-code-action)
   :config
   (syd-defadvice syd-lsp-install-server-a ()
     "Override and disbale `lsp-install-server'"
@@ -40,7 +42,7 @@
     :size 13 :quit t :select nil)
 
   ;; DEPRECATED: Remove once syd-strategies is working.
-  (syd-add-hook 'lsp-mode
+  (syd-add-hook 'lsp-mode-hook
     (defun syd-lsp-set-handlers-h ()
       (setq-local syd-lookup-documentation-handlers
                   (list #'syd-lsp-lookup-documentation)))))