gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

More descriptive selection info in mode-line

Browse Source
This commit is contained in:
Henrik Lissner 2015-12-11 22:44:27 -05:00
parent 2c0ed67a51
commit 9973305e0e
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
core/core-ui.el
View File

@ -416,10 +416,13 @@ Supports both Emacs and Evil cursor conventions."
(and evil (eq 'block evil-visual-selection))))
(multi-line (or (> lines 1) (eq 'line evil-visual-selection))))
(cond
(rect (format "%dx%d block" lines (if evil cols (1- cols))))
(multi-line (format "%d lines" lines))
(t (format "%d chars" (if evil chars (1- chars)))))))
:when (or mark-active (eq 'visual evil-state))
(rect (format "%dx%dB" lines (if evil cols (1- cols))))
(multi-line
(if (and (eq evil-state 'visual) (eq evil-this-type 'line))
(format "%dL" lines)
(format "%dC %dL" chars lines)))
(t (format "%dC" (if evil chars (1- chars)))))))
:when (eq 'visual evil-state)
:face highlight-face
:skip-alternate t)