fix missing ) for org-mode

[lib.git] / emacs_el / configuration / mode-line-cleaner.el

diff --git a/emacs_el/configuration/mode-line-cleaner.el b/emacs_el/configuration/mode-line-cleaner.el
index 650d430efc874ccb245477e9c8554036869bc235..654809c9c78e85db089c6208ffcc505d36387f44 100644 (file)
--- 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))))