diff options
| -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 |