More descriptive selection info in mode-line

This commit is contained in:
Henrik Lissner 2015-12-11 22:44:27 -05:00
parent 2c0ed67a51
commit 9973305e0e

View file

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