a3e262c7ac
This update may potentially break your usage of add-hook! if you pass the :local or :append properties to it. This is how they used to work: (add-hook! :append 'some-mode-hook #'do-something) Thsoe properties must now follow the hooks, e.g. (add-hook! 'some-mode-hook :append #'do-something) Other changes: - Various add-hook calls have been renamed to add-hook! because I incorrectly assumed `defun` always returned its definition's symbol, when in fact, its return value is "undefined" (so sayeth the documentation). This should fix #1597. - This update adds the ability to add multiple functions to hooks without a list: (add-hook! 'some-mode-hook #'do-something #'do-something-else) - The indentation logic has been changed so that consecutive function symbols at indented at the same level as the first argument, but forms are indent like a defun. (add-hook! 'some-mode-hook #'do-something #'do-something-else) (add-hook! 'some-mode-hook (message "Hello"))
30 lines
1.1 KiB
EmacsLisp
30 lines
1.1 KiB
EmacsLisp
;;; ui/nav-flash/config.el -*- lexical-binding: t; -*-
|
|
|
|
(defvar +nav-flash-exclude-commands
|
|
'(mouse-set-point evil-mouse-drag-region
|
|
+org/dwim-at-point org-find-file org-find-file-at-mouse)
|
|
"A list of commands that should not trigger nav-flash.")
|
|
|
|
(use-package! nav-flash
|
|
:defer t
|
|
:init
|
|
;; NOTE In :tools lookup `recenter' is hooked to a bunch of jumping
|
|
;; commands, which will trigger nav-flash.
|
|
(add-hook! '(imenu-after-jump-hook
|
|
better-jumper-post-jump-hook
|
|
counsel-grep-post-action-hook
|
|
dumb-jump-after-jump-hook)
|
|
#'+nav-flash-blink-cursor-maybe-h)
|
|
|
|
(add-hook 'doom-switch-window-hook #'+nav-flash-blink-cursor-maybe-h)
|
|
|
|
;; `org'
|
|
(add-hook 'org-follow-link-hook #'+nav-flash-delayed-blink-cursor-h)
|
|
|
|
;; `saveplace'
|
|
(advice-add #'save-place-find-file-hook :after #'+nav-flash-blink-cursor-a)
|
|
|
|
;; `evil'
|
|
(advice-add #'evil-window-top :after #'+nav-flash-blink-cursor-a)
|
|
(advice-add #'evil-window-middle :after #'+nav-flash-blink-cursor-a)
|
|
(advice-add #'evil-window-bottom :after #'+nav-flash-blink-cursor-a))
|