From 23568c31c4ce179234ca9aae8f3e4da3a662c5db Mon Sep 17 00:00:00 2001
From: Jacopo De Simoi <wilderkde@gmail.com>
Date: Mon, 9 May 2022 12:55:06 -0400
Subject: [PATCH] Cleanup the modeline for Scheme

---
 global.org | 62 ++++++++++++++++++++++++++++++------------------------
 1 file changed, 35 insertions(+), 27 deletions(-)

diff --git a/global.org b/global.org
index 95cc07e..3a28062 100644
--- a/global.org
+++ b/global.org
@@ -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)