Emacs: customize my svg-mode-line-theme

1 files changed, 22 insertions, 1 deletions

diff --git a/emacs/init.org b/emacs/init.org
index 7ba2dc0..003d229 100644
--- a/emacs/init.org
+++ b/emacs/init.org
@@ -433,10 +433,31 @@
   a theme.
 
   #+BEGIN_SRC emacs-lisp
+    (defun oni:smt/minor-mode-indicator-text (widget)
+      (let ((text (concat
+                   (when (bound-and-true-p auto-complete-mode) "C")
+                   (when (bound-and-true-p auto-fill-mode) "F")
+                   (when (bound-and-true-p eldoc-mode) "D"))))
+        (if (plusp (length text))
+            (concat " " text)
+          "")))
+
+    (smt/deftheme yoshi
+      :prototype 'black-crystal
+      :local-widgets
+      (lambda (theme)
+        (let ((parent-local-widgets
+               (smt/t-local-widgets (smt/t-prototype theme))))
+          (append (list (cons 'minor-modes
+                              (smt/make-widget
+                               :prototye 'minor-modes
+                               :text 'oni:smt/minor-mode-indicator-text)))
+                  parent-local-widgets))))
+
     (defun oni:enable-svg-mode-line-theme ()
       "Enable `svg-mode-line-theme' and select a theme."
       (smt/enable)
-      (smt/set-theme 'black-crystal))
+      (smt/set-theme 'yoshi))
 
     (add-hook 'emacs-startup-hook 'oni:enable-svg-mode-line-theme)
   #+END_SRC