emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Conform nav-flash commands to naming conventions

Browse source
This commit is contained in:
Henrik Lissner 2017-05-26 11:51:18 +02:00
parent 33a87cec5b
commit 7fc4447ef6
2 changed files with 11 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

2
modules/private/hlissner/+bindings.el
View file

@ -28,7 +28,7 @@
"M-;" #'eval-expression
"A-;" #'eval-expression
[f9] #'doom/what-face
[f10] #'doom/blink-cursor
[f10] #'+doom/blink-cursor
"C-`" #'doom/popup-toggle
;; Text-scaling
"M-+" (λ! (text-scale-set 0))

21
modules/ui/doom/config.el
View file

@ -99,7 +99,7 @@
(def-package! nav-flash
:commands nav-flash-show
:init
(defun doom*blink-cursor-maybe (orig-fn &rest args)
(defun +doom*blink-cursor-maybe (orig-fn &rest args)
"Blink current line if the window has moved."
(interactive)
(let ((point (save-excursion (goto-char (window-start))
@ -108,9 +108,9 @@
(unless (equal point
(save-excursion (goto-char (window-start))
(point-marker)))
(doom/blink-cursor))))
(+doom/blink-cursor))))
(defun doom/blink-cursor (&rest _)
(defun +doom/blink-cursor (&rest _)
"Blink current line using `nav-flash'."
(interactive)
(unless (minibufferp)
@ -118,17 +118,16 @@
;; 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)
#'doom/blink-cursor)
;; NOTE In :feature jump `recenter' is hooked to a bunch of jumping commands,
;; which will trigger nav-flash.
(advice-add #'windmove-do-window-select :around #'doom*blink-cursor-maybe)
(advice-add #'recenter :around #'doom*blink-cursor-maybe)
(advice-add #'windmove-do-window-select :around #'+doom*blink-cursor-maybe)
(advice-add #'recenter :around #'+doom*blink-cursor-maybe)
(after! evil
(advice-add #'evil-window-top :after #'doom/blink-cursor)
(advice-add #'evil-window-middle :after #'doom/blink-cursor)
(advice-add #'evil-window-bottom :after #'doom/blink-cursor)))
(advice-add #'evil-window-top :after #'+doom/blink-cursor)
(advice-add #'evil-window-middle :after #'+doom/blink-cursor)
(advice-add #'evil-window-bottom :after #'+doom/blink-cursor)))
(after! hideshow