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

Prevent nav-flash from firing too often

Browse Source 
And trigger on better-jumper-post-jump-hook instead, so that non-evil
users can benefit from nav-flash in this case too.
This commit is contained in:
Henrik Lissner
2019-05-18 18:16:16 -04:00
parent 4cde9afd93
commit dba3ae5e4d
2 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
modules/ui/nav-flash/autoload.el
View File

@ -1,5 +1,7 @@
;;; ui/nav-flash/autoload.el -*- lexical-binding: t; -*- ;;; ui/nav-flash/autoload.el -*- lexical-binding: t; -*-
(defvar +nav-flash--last-point nil)
;;;###autoload ;;;###autoload
(defun +nav-flash-blink-cursor (&rest _) (defun +nav-flash-blink-cursor (&rest _)
"Blinks the current line in the current window, to make it clear where the "Blinks the current line in the current window, to make it clear where the
@ -15,8 +17,10 @@ jumping to another part of the file)."
"Like `+nav-flash-blink-cursor', but no-ops if in special-mode or term-mode, "Like `+nav-flash-blink-cursor', but no-ops if in special-mode or term-mode,
or triggered from one of `+nav-flash-exclude-commands'." or triggered from one of `+nav-flash-exclude-commands'."
(unless (or (derived-mode-p 'special-mode 'term-mode) (unless (or (derived-mode-p 'special-mode 'term-mode)
(memq this-command +nav-flash-exclude-commands)) (memq this-command +nav-flash-exclude-commands)
(+nav-flash-blink-cursor))) (equal (point-marker) +nav-flash--last-point))
(+nav-flash-blink-cursor)
(setq +nav-flash--last-point (point-marker))))
;;;###autoload ;;;###autoload
(defun +nav-flash|delayed-blink-cursor (&rest _) (defun +nav-flash|delayed-blink-cursor (&rest _)

2
modules/ui/nav-flash/config.el
View File

@ -12,7 +12,7 @@
;; commands, which will trigger nav-flash. ;; commands, which will trigger nav-flash.
(add-hook! (add-hook!
'(doom-switch-window-hook '(doom-switch-window-hook
imenu-after-jump-hook evil-jumps-post-jump-hook imenu-after-jump-hook better-jumper-post-jump-hook
counsel-grep-post-action-hook dumb-jump-after-jump-hook) counsel-grep-post-action-hook dumb-jump-after-jump-hook)
#'+nav-flash|blink-cursor-maybe) #'+nav-flash|blink-cursor-maybe)