From 6b2502561125c16cafd76b8d21bb79c4ffdaf563 Mon Sep 17 00:00:00 2001
From: Tom Willemse <tom@ryuslash.org>
Date: Tue, 20 Jan 2015 14:36:41 +0100
Subject: [PATCH] Show some extra evil-state info in modeline

---
 emacs/.emacs.d/site-lisp/my-smt.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

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