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

Improve hl-line disable hook for visual mode

Browse source
This commit is contained in:
Henrik Lissner 2017-06-19 00:04:20 +02:00
parent a2ca21cc21
commit 27cbd36b69
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

15
core/core-ui.el
View file

@ -259,13 +259,18 @@ file."
(add-hook! 'hl-line-mode-hook (add-hook! 'hl-line-mode-hook
(remove-overlays (point-min) (point-max) 'face 'hl-line)) (remove-overlays (point-min) (point-max) 'face 'hl-line))
;; Acts & looks weird with evil visual mode, so disable it temporarily
(defun doom|hl-line-off () (hl-line-mode -1))
(after! evil (after! evil
;; Can get in the way of the selection region when in evil visual mode, so
;; disable it temporarily.
(defun doom|turn-off-hl-line () (hl-line-mode -1))
(add-hook! 'hl-line-mode-hook (add-hook! 'hl-line-mode-hook
(when hl-line-mode (cond (hl-line-mode
(add-hook 'evil-visual-state-entry-hook #'doom|hl-line-off nil t) (add-hook 'evil-visual-state-entry-hook #'doom|turn-off-hl-line nil t)
(add-hook 'evil-visual-state-exit-hook #'hl-line-mode nil t))))) (add-hook 'evil-visual-state-exit-hook #'hl-line-mode nil t))
(t
(remove-hook 'evil-visual-state-entry-hook #'doom|turn-off-hl-line t)
(remove-hook 'evil-visual-state-exit-hook #'hl-line-mode t))))))
;; Line number column. A faster (or equivalent, in the worst case) line number ;; Line number column. A faster (or equivalent, in the worst case) line number
;; plugin than the built-in `linum'. ;; plugin than the built-in `linum'.