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

Refactor doom/toggle-line-numbers; add doom-line-numbers-visual-style #376

Browse source 
doom-line-numbers-visual-style adds support for the visual
display-line-numbers mode by setting it to a non-nil value.
This commit is contained in:
Henrik Lissner 2018-01-30 03:27:38 -05:00
parent 64a674dcc9
commit bcef66b947
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 22 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

17
core/autoload/ui.el
View file

@ -19,16 +19,17 @@ Cycles through regular, relative and no line numbers. The order depends on what
Uses `display-line-numbers' in Emacs 26+ and `nlinum-mode' everywhere else."
(interactive)
(let* ((order (pcase doom-line-numbers-style
(`relative '(relative t nil))
(`t '(t relative nil))
(`nil '(nil t relative))))
(let* ((styles '(t relative nil))
(order (cons doom-line-numbers-style (delq doom-line-numbers-style styles)))
(queue (memq doom--line-number-style order))
(next (if (= (length queue) 1)
(car order)
(car (cdr queue)))))
(setq doom--line-number-style next)
(cond ((boundp 'display-line-numbers)
(when (and (eq next 'relative)
doom-line-numbers-visual-style)
(setq next 'visual))
(setq display-line-numbers next))
((featurep 'nlinum)
(pcase next
@ -36,7 +37,13 @@ Uses `display-line-numbers' in Emacs 26+ and `nlinum-mode' everywhere else."
(`relative (nlinum-relative-on))
(`nil (nlinum-mode -1))))
(t
(error "No line number plugin detected")))))
(error "No line number plugin detected")))
(message "Switched to %s line numbers"
(pcase next
(`t "normal")
(`relative "relative")
(`visual "visual")
(`nil "disabled")))))
;;;###autoload
(defun doom-resize-window (window new-size &optional horizontal force-p)