X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=emacs_el%2Fconfiguration%2Fmode-line-cleaner.el;h=654809c9c78e85db089c6208ffcc505d36387f44;hb=bb6f856e564fafbcb00d953c5d5ac534430e2e7a;hp=650d430efc874ccb245477e9c8554036869bc235;hpb=dcdee75b622e5c4760b657e6db400195000d2d45;p=lib.git

diff --git a/emacs_el/configuration/mode-line-cleaner.el b/emacs_el/configuration/mode-line-cleaner.el
index 650d430..654809c 100644
--- a/emacs_el/configuration/mode-line-cleaner.el
+++ b/emacs_el/configuration/mode-line-cleaner.el
@@ -1,4 +1,6 @@
+(require 'cl-lib)
 ; clean-mode-line from http://www.masteringemacs.org/articles/2012/09/10/hiding-replacing-modeline-strings/
+(require 'cl)
 (defvar mode-line-cleaner-alist
   `((auto-complete-mode . " α")
     (yas/minor-mode . " υ")
@@ -6,6 +8,7 @@
     (eldoc-mode . "")
     (abbrev-mode . "")
     (my-keys-minor-mode . "")
+    (helm-mode . "☸")
     ;; Major modes
     (lisp-interaction-mode . "λ")
     (hi-lock-mode . "")
@@ -25,7 +28,7 @@ want to use in the modeline *in lieu of* the original.")
  
 (defun clean-mode-line ()
   (interactive)
-  (loop for cleaner in mode-line-cleaner-alist
+  (cl-loop for cleaner in mode-line-cleaner-alist
         do (let* ((mode (car cleaner))
                  (mode-str (cdr cleaner))
                  (old-mode-str (cdr (assq mode minor-mode-alist))))