diff options
| author |  Tom Willemse | 2015-01-20 14:36:41 +0100 |
|---|---|---|
| committer | Tom Willemse | 2015-01-20 14:36:41 +0100 |
| commit | 6b2502561125c16cafd76b8d21bb79c4ffdaf563 (patch) | |
| tree | a2df7a5035079cc614f0dc8d8b1106d5913fff5f | |
| parent | 7de3d74dfa77fd892f6dfe02db6d68a255ec5537 (diff) | |
| download | dotfiles-6b2502561125c16cafd76b8d21bb79c4ffdaf563.tar.gz dotfiles-6b2502561125c16cafd76b8d21bb79c4ffdaf563.zip | |
Show some extra evil-state info in modeline
| -rw-r--r-- | emacs/.emacs.d/site-lisp/my-smt.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/emacs/.emacs.d/site-lisp/my-smt.el b/emacs/.emacs.d/site-lisp/my-smt.el index 32009a2..afc2d59 100644 --- a/emacs/.emacs.d/site-lisp/my-smt.el +++ b/emacs/.emacs.d/site-lisp/my-smt.el @@ -88,6 +88,18 @@ WIDGET is ignored." (ignore widget) (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 :prototype 'default-right :widgets '(my-smt-jabber-activity |