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

ui/doom: refactor nav-flash integration

Browse Source
This commit is contained in:
Henrik Lissner
2017-05-15 11:11:16 +02:00
parent 7f6c38fcb6
commit dce757032a
1 changed files with 16 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
modules/ui/doom/config.el
View File

@ -97,21 +97,30 @@
(def-package! nav-flash (def-package! nav-flash
:commands nav-flash-show :commands nav-flash-show
:init :init
(defun doom/blink-cursor (&rest _) (defun doom*blink-cursor-maybe (orig-fn &rest args)
"Blink line, to keep track of the cursor." "Blink line, to keep track of the cursor."
(interactive) (interactive)
(nav-flash-show)) (let ((point (point-marker)))
(apply orig-fn args)
(unless (equal point (point-marker))
(doom/blink-cursor))))
(add-hook! :append (defun doom/blink-cursor (&rest _)
(unless (minibufferp)
(nav-flash-show)
;; only show in the current window
(overlay-put compilation-highlight-overlay 'window (selected-window))))
(add-hook!
'(imenu-after-jump-hook evil-jumps-post-jump-hook find-file-hook) '(imenu-after-jump-hook evil-jumps-post-jump-hook find-file-hook)
'doom/blink-cursor) #'doom/blink-cursor)
(advice-add #'windmove-do-window-select :around #'doom*blink-cursor-maybe)
(advice-add #'recenter :after #'doom/blink-cursor) (advice-add #'recenter :after #'doom/blink-cursor)
(after! evil (after! evil
(advice-add #'evil-window-bottom :after #'doom/blink-cursor) (dolist (fn '(evil-window-bottom evil-window-middle evil-window-top))
(advice-add #'evil-window-middle :after #'doom/blink-cursor) (advice-add fn :around #'doom*blink-cursor-maybe))))
(advice-add #'evil-window-top :after #'doom/blink-cursor)))
(after! hideshow (after! hideshow