Use :hook list syntax
This commit is contained in:
parent
164695304e
commit
3e6443a15d
|
@ -40,7 +40,8 @@
|
|||
:custom (smartscan-symbol-selector "symbol")
|
||||
:config
|
||||
(unbind-key "M-'" smartscan-map)
|
||||
(defvar-local smartscan-exclude-modes '(cider-repl-mode
|
||||
:hook
|
||||
((cider-repl-mode
|
||||
ielm-mode
|
||||
vterm-mode
|
||||
term-mode
|
||||
|
@ -50,12 +51,7 @@
|
|||
sql-interactive-mode
|
||||
magit-status-mode
|
||||
compilation-mode
|
||||
deadgrep-mode))
|
||||
(defun turn-off-smartscan-mode ()
|
||||
(smartscan-mode -1))
|
||||
(dolist (mode smartscan-exclude-modes)
|
||||
(add-hook (intern (concat (symbol-name mode) "-hook")) #'turn-off-smartscan-mode))
|
||||
:hook
|
||||
deadgrep-mode) . (lambda () (smartscan-mode -1)))
|
||||
(elpaca-after-init . global-smartscan-mode)
|
||||
:bind (:map smartscan-map
|
||||
("C-M-'" . smartscan-symbol-replace)))
|
||||
|
|
|
@ -85,8 +85,7 @@
|
|||
(dolist (mode whitespace-disabled-modes)
|
||||
(add-hook (intern (concat (symbol-name mode) "-hook")) #'turn-off-whitespace-mode))
|
||||
:hook
|
||||
(text-mode . (lambda () (whitespace-mode +1)))
|
||||
(prog-mode . (lambda () (whitespace-mode +1))))
|
||||
((text-mode prog-mode) . (lambda () (whitespace-mode +1))))
|
||||
|
||||
(use-package goggles
|
||||
:diminish
|
||||
|
@ -111,15 +110,12 @@
|
|||
|
||||
(use-package rainbow-delimiters
|
||||
:hook
|
||||
(text-mode . (lambda () (rainbow-delimiters-mode +1)))
|
||||
(prog-mode . (lambda () (rainbow-delimiters-mode +1)))
|
||||
(ielm-mode . (lambda () (rainbow-delimiters-mode +1))))
|
||||
((text-mode prog-mode ielm-mode) . (lambda () (rainbow-delimiters-mode +1))))
|
||||
|
||||
(use-package rainbow-mode
|
||||
:diminish
|
||||
:hook
|
||||
(emacs-lisp-mode . rainbow-mode)
|
||||
(css-mode . rainbow-mode))
|
||||
((emacs-lisp-mode css-mode) . rainbow-mode))
|
||||
|
||||
(use-feature repeat
|
||||
:defer 5
|
||||
|
|
Loading…
Reference in New Issue