2 ; clean-mode-line from http://www.masteringemacs.org/articles/2012/09/10/hiding-replacing-modeline-strings/
4 (defvar mode-line-cleaner-alist
5 `((auto-complete-mode . " α")
6 (yas/minor-mode . " υ")
10 (my-keys-minor-mode . "")
13 (lisp-interaction-mode . "λ")
18 (org-agenda-mode . "øα")
20 (emacs-lisp-mode . "EL")
22 "Alist for `clean-mode-line'.
24 When you add a new element to the alist, keep in mind that you
25 must pass the correct minor/major mode symbol and a string you
26 want to use in the modeline *in lieu of* the original.")
29 (defun clean-mode-line ()
31 (cl-loop for cleaner in mode-line-cleaner-alist
32 do (let* ((mode (car cleaner))
33 (mode-str (cdr cleaner))
34 (old-mode-str (cdr (assq mode minor-mode-alist))))
36 (setcar old-mode-str mode-str))
38 (when (eq mode major-mode)
39 (setq mode-name mode-str)))))
42 (add-hook 'after-change-major-mode-hook 'clean-mode-line)