From 07586eb43b8a5b1f3b92f5095a0077056b49428c Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Mon, 11 Mar 2013 00:33:42 +0100
Subject: Emacs: customize my svg-mode-line-theme

---
 emacs/init.org | 23 ++++++++++++++++++++++-
 1 file changed, 22 insertions(+), 1 deletion(-)

(limited to 'emacs')

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
-- 
cgit v1.2.3-54-g00ecf