ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Show some extra evil-state info in modeline

Browse source
This commit is contained in:
Tom Willemse 2015-01-20 14:36:41 +01:00
parent 7de3d74dfa
commit 6b25025611
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
emacs/.emacs.d/site-lisp/my-smt.el
View file

@ -88,6 +88,18 @@ WIDGET is ignored."
(ignore widget) (ignore widget)
(format-mode-line "%l/%c:%p"))) (format-mode-line "%l/%c:%p")))
(defun my-smt-extra-minor-modes (minor-modes)
"Add some more info to MINOR-MODES."
(if (boundp 'evil-state)
(let ((l (capitalize (elt (symbol-name evil-state) 0))))
`(tspan ,minor-modes (tspan :fill "#54a875" ,(char-to-string l))))
minor-modes))
(add-function
:filter-return
(symbol-function 'smt/minor-mode-indicator-text)
#'my-smt-extra-minor-modes)
(smt/defrow my-smt-right (smt/defrow my-smt-right
:prototype 'default-right :prototype 'default-right
:widgets '(my-smt-jabber-activity :widgets '(my-smt-jabber-activity