msyds/sydnix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat(emacs): Misc. tooling

Browse Source
This commit is contained in:
Madeleine Sydney
2025-03-04 03:10:59 -07:00
parent 7edba3e295
commit 3e5020fb09
3 changed files with 14 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
users/crumb/programs/emacs/modules/syd-keybinds.el
View File

@@ -129,6 +129,10 @@
:prefix-map 'syd-leader-insert-map :prefix-map 'syd-leader-insert-map
"u" #'insert-char) "u" #'insert-char)
;; Code
(general-def
:prefix-map 'syd-leader-code-map)
;; Leader ;; Leader
(general-def (general-def
:keymaps 'syd-leader-map :keymaps 'syd-leader-map
@@ -145,6 +149,7 @@
"h" `("Help" . ,help-map) "h" `("Help" . ,help-map)
"n" `("Notes" . ,syd-leader-notes-map) "n" `("Notes" . ,syd-leader-notes-map)
"i" `("Insert" . ,syd-leader-insert-map) "i" `("Insert" . ,syd-leader-insert-map)
"c" `("Code" . ,syd-leader-code-map)
"," `("Switch buffer in project" . ,#'consult-project-buffer) "," `("Switch buffer in project" . ,#'consult-project-buffer)
"<" `("Switch buffer" . ,#'consult-buffer) "<" `("Switch buffer" . ,#'consult-buffer)
"/" `("Search project" . ,#'syd-project-search))) "/" `("Search project" . ,#'syd-project-search)))

6
users/crumb/programs/emacs/modules/syd-projects.el
View File

@@ -30,6 +30,8 @@
(use-package projection (use-package projection
;; Enable the `projection-hook' feature. ;; Enable the `projection-hook' feature.
:hook (after-init . global-projection-hook-mode) :hook (after-init . global-projection-hook-mode)
:general (:keymaps 'syd-leader-project-map
"R" #'projection-commands-run-project)
;; Require projections immediately after project.el. ;; Require projections immediately after project.el.
:config :config
(with-eval-after-load 'project (with-eval-after-load 'project
@@ -38,7 +40,9 @@
;; Allow interactively selecting available compilation targets from the ;; Allow interactively selecting available compilation targets from the
;; current project type. ;; current project type.
(use-package projection-multi (use-package projection-multi
:after projection) :after projection
:general (:keymaps 'syd-leader-project-map
"M" #'projection-multi-projection))
;; Embark integration for projection-multi. ;; Embark integration for projection-multi.
(use-package projection-multi-embark (use-package projection-multi-embark

6
users/crumb/programs/emacs/modules/syd-tooling.el
View File

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