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

"Fix" hl-line bleeding into buffer bg

Browse source 
When its face is remapped (e.g. by solaire-mode).

Unfortunately, this means highlighting on the 2nd-to-last line becomes
janky, but this is the lesser evil of the two. Upgrade to 27 people!

Also, don't do anything if solaire-mode isn't enabled.
This commit is contained in:
Henrik Lissner 2020-06-01 18:33:25 -04:00
parent fed0e9365c
commit 86625d3d42
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 21 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -45,22 +45,29 @@
;; considered an unreal buffer, so solaire-mode must be restored.
(add-hook 'org-capture-mode-hook #'turn-on-solaire-mode)
;; DEPRECATED No longer needed in Emacs 27+
(unless EMACS27+
;; On Emacs <=26, when point is on the last line and solaire-mode is
;; remapping the hl-line face, hl-line's highlight bleeds into the rest of
;; the window after eob. On Emacs 27 this no longer happens.
;; HACK On Emacs <=26, when point is on the last (or second to last) line
;; and solaire-mode is remapping the hl-line face, hl-line's highlight
;; bleeds into the rest of the window after eob. On Emacs 27 this no
;; longer happens. This tries to fix it for 26 users, but it imposes
;; another problem: the 2nd-to-last line will only be highlighted up to
;; the (n-1)th character, but I think that is the lesser evil.
(defun +doom--line-range-fn ()
(let ((bol (line-beginning-position))
(eol (line-end-position))
(pmax (point-max)))
(cons bol
(cond ((and (= eol pmax)
(/= eol bol))
(1- eol))
((or (eobp)
(= eol pmax))
eol)
((line-beginning-position 2))))))
(if solaire-mode
(let ((bol (line-beginning-position))
(eol (line-end-position))
(eob (point-max)))
(cond ((or (= bol eob)
(= (1+ eol) eob))
nil)
((= eol eob)
(cons bol eol))
((eobp)
(cons bol eol))
((cons bol (line-beginning-position 2)))))
(cons (line-beginning-position)
(line-beginning-position 2))))
(setq hl-line-range-function #'+doom--line-range-fn)
;; HACK The fringe cannot have a buffer-local remapping on Emacs <= 26, so