emacs_el/configuration/mode-line-cleaner.el

   1 (require 'cl-lib)
   2 ; clean-mode-line from http://www.masteringemacs.org/articles/2012/09/10/hiding-replacing-modeline-strings/
   3 (require 'cl)
   4 (defvar mode-line-cleaner-alist
   5   `((auto-complete-mode . " α")
   6     (yas/minor-mode . " υ")
   7     (paredit-mode . " π")
   8     (eldoc-mode . "")
   9     (abbrev-mode . "")
  10     (my-keys-minor-mode . "")
  11     (helm-mode . "☸")
  12     ;; Major modes
  13     (lisp-interaction-mode . "λ")
  14     (hi-lock-mode . "")
  15     (python-mode . "Py")
  16     (cperl-mode . "ρ")
  17     (auctex-mode . "Lχ")
  18     (org-agenda-mode . "øα")
  19     (org-mode . "ø")
  20     (emacs-lisp-mode . "EL")
  21     (nxhtml-mode . "nx"))
  22   "Alist for `clean-mode-line'.
  23
  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.")
  27
  28
  29 (defun clean-mode-line ()
  30   (interactive)
  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))))
  35              (when old-mode-str
  36                  (setcar old-mode-str mode-str))
  37                ;; major mode
  38              (when (eq mode major-mode)
  39                (setq mode-name mode-str)))))
  40
  41
  42 (add-hook 'after-change-major-mode-hook 'clean-mode-line)
  43