awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

refactor(clojure): add-hook!: no implicit mode hooks

Browse Source 
Note: `add-hook!` will, in the future, deprecate implicit hooks, e.g.

  (add-hook! some-mode #'function)
  (add-hook! (some-mode another-mode) #'function)

This commit also removes the single-item lists passed to
`add-hook!` (which was unnecessary).
This commit is contained in:
Henrik Lissner
2025-04-30 03:10:46 -04:00
parent 795708c116
commit 92930251cf
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
modules/lang/clojure/config.el
View File

@ -48,7 +48,7 @@
;; `cider-mode' is used instead of the typical `cider' package due to the main ;; `cider-mode' is used instead of the typical `cider' package due to the main
;; library being loaded only when is absolutely needed, which is too late for ;; library being loaded only when is absolutely needed, which is too late for
;; our purposes ;; reconfiguration in many cases.
(use-package! cider-mode (use-package! cider-mode
;; NOTE if `org-directory' doesn't exist, `cider-jack' in won't work ;; NOTE if `org-directory' doesn't exist, `cider-jack' in won't work
:hook (clojure-mode-local-vars . cider-mode) :hook (clojure-mode-local-vars . cider-mode)
@ -141,12 +141,12 @@
(?l (?L "locals" "Locals")))) (?l (?L "locals" "Locals"))))
;; Prevent evil-snipe from overriding evil-collection ;; Prevent evil-snipe from overriding evil-collection
(add-hook! cider--debug-mode (add-hook! 'cider--debug-mode-hook
'turn-off-evil-snipe-mode #'turn-off-evil-snipe-mode
'turn-off-evil-snipe-override-mode)) #'turn-off-evil-snipe-override-mode))
;; When in cider-debug-mode, override evil keys to not interfere with debug keys ;; When in cider-debug-mode, override evil keys to not interfere with debug keys
(add-hook! cider--debug-mode (add-hook! 'cider--debug-mode-hook
(defun +clojure--cider-setup-debug () (defun +clojure--cider-setup-debug ()
"Setup cider debug to override evil keys cleanly" "Setup cider debug to override evil keys cleanly"
(evil-make-overriding-map cider--debug-mode-map 'normal) (evil-make-overriding-map cider--debug-mode-map 'normal)
@ -175,17 +175,17 @@
(label (if connected "Cider connected" "Cider disconnected"))) (label (if connected "Cider connected" "Cider disconnected")))
(+clojure--cider-set-modeline face label)))) (+clojure--cider-set-modeline face label))))
(add-hook! '(cider-before-eval-hook) (add-hook! 'cider-before-eval-hook
(defun +clojure--cider-before-eval-hook-update-modeline () (defun +clojure--cider-before-eval-hook-update-modeline ()
"Update modeline with cider state before eval." "Update modeline with cider state before eval."
(+clojure--cider-set-modeline 'warning "Cider evaluating"))) (+clojure--cider-set-modeline 'warning "Cider evaluating")))
(add-hook! '(cider-after-eval-done-hook) (add-hook! 'cider-after-eval-done-hook
(defun +clojure--cider-after-eval-done-hook-update-modeline () (defun +clojure--cider-after-eval-done-hook-update-modeline ()
"Update modeline with cider state after eval." "Update modeline with cider state after eval."
(+clojure--cider-set-modeline 'success "Cider syncronized"))) (+clojure--cider-set-modeline 'success "Cider syncronized")))
(add-hook! '(cider-file-loaded-hook) (add-hook! 'cider-file-loaded-hook
(defun +clojure--cider-file-loaded-update-modeline () (defun +clojure--cider-file-loaded-update-modeline ()
"Update modeline with cider file loaded state." "Update modeline with cider file loaded state."
(+clojure--cider-set-modeline 'success "Cider syncronized")))) (+clojure--cider-set-modeline 'success "Cider syncronized"))))