Show some extra evil-state info in modeline

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