|
|
|
|
@ -291,44 +291,52 @@ |
|
|
|
|
The following has been found in [[https://www.masteringemacs.org/article/hiding-replacing-modeline-strings][here]] to clean up the modeline |
|
|
|
|
#+begin_src emacs-lisp |
|
|
|
|
(defvar mode-line-cleaner-alist |
|
|
|
|
`((auto-complete-mode . " α") |
|
|
|
|
(yas/minor-mode . " υ") |
|
|
|
|
(paredit-mode . " π") |
|
|
|
|
(eldoc-mode . "") |
|
|
|
|
(abbrev-mode . "") |
|
|
|
|
(auto-fill-function . "") |
|
|
|
|
(disable-mouse-global-mode . "") |
|
|
|
|
(auto-revert-mode . "") |
|
|
|
|
(helm-mode . " η" ) |
|
|
|
|
(smart-tab-mode . "") |
|
|
|
|
(subword-mode . "") |
|
|
|
|
(outshine-mode . " o") |
|
|
|
|
(outline-minor-mode . "") |
|
|
|
|
(reftex-mode . "") |
|
|
|
|
(flyspell-mode . "") |
|
|
|
|
;; Major modes |
|
|
|
|
(lisp-interaction-mode . "λ") |
|
|
|
|
(hi-lock-mode . "") |
|
|
|
|
(python-mode . "Py") |
|
|
|
|
(emacs-lisp-mode . "EL") |
|
|
|
|
(tex-mode . "χ") |
|
|
|
|
(latex-mode . "χ") |
|
|
|
|
(TeX-latex-mode . "χ") |
|
|
|
|
(org-mode . "Ω") |
|
|
|
|
(org-agenda-mode . "Ω:Agenda")) |
|
|
|
|
"Alist for `clean-mode-line'. |
|
|
|
|
'() |
|
|
|
|
"Alist for `clean-mode-line.' |
|
|
|
|
|
|
|
|
|
When you add a new element to the alist, keep in mind that you |
|
|
|
|
must pass the correct minor/major mode symbol and a string you |
|
|
|
|
want to use in the modeline *in lieu of* the original.") |
|
|
|
|
|
|
|
|
|
(setq mode-line-cleaner-alist |
|
|
|
|
`((auto-complete-mode . " α") |
|
|
|
|
(yas/minor-mode . " υ") |
|
|
|
|
(paredit-mode . " π") |
|
|
|
|
(eldoc-mode . "") |
|
|
|
|
(abbrev-mode . "") |
|
|
|
|
(auto-fill-function . "") |
|
|
|
|
(disable-mouse-global-mode . "") |
|
|
|
|
(auto-revert-mode . "") |
|
|
|
|
(helm-mode . " η" ) |
|
|
|
|
(smart-tab-mode . "") |
|
|
|
|
(subword-mode . "") |
|
|
|
|
(outshine-mode . " o") |
|
|
|
|
(outline-minor-mode . "") |
|
|
|
|
(reftex-mode . "") |
|
|
|
|
(flyspell-mode . "") |
|
|
|
|
(geiser-mode . " γ") |
|
|
|
|
(geiser-autodoc-mode . "·α") |
|
|
|
|
(org-src-mode . " ωσ") |
|
|
|
|
;; Major modes |
|
|
|
|
(lisp-interaction-mode . "λ") |
|
|
|
|
(hi-lock-mode . "") |
|
|
|
|
(python-mode . "Py") |
|
|
|
|
(emacs-lisp-mode . "ελ") |
|
|
|
|
(help-mode . "+") |
|
|
|
|
(scheme-mode . "λ") |
|
|
|
|
(tex-mode . "χ") |
|
|
|
|
(latex-mode . "χ") |
|
|
|
|
(TeX-latex-mode . "χ") |
|
|
|
|
(org-mode . "Ω") |
|
|
|
|
(org-agenda-mode . "Ω:Agenda"))) |
|
|
|
|
|
|
|
|
|
(defun clean-mode-line () |
|
|
|
|
(interactive) |
|
|
|
|
(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)))) |
|
|
|
|
(when old-mode-str |
|
|
|
|
(when old-mode-str |
|
|
|
|
(setcar old-mode-str mode-str)) |
|
|
|
|
;; major mode |
|
|
|
|
(when (eq mode major-mode) |
|
|
|
|
|
Jacopo De Simoi
4 years ago