Cleanup the modeline for Scheme

global.org

@@ -291,6 +291,14 @@
      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
+         '()
+         "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 . " π")
@@ -306,21 +314,21 @@
                (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 . "EL")
+               (emacs-lisp-mode . "ελ")
+               (help-mode . "+")
+               (scheme-mode . "λ")
                (tex-mode . "χ")
                (latex-mode . "χ")
                (TeX-latex-mode . "χ")
                (org-mode . "Ω")
-           (org-agenda-mode . "Ω:Agenda"))
+               (org-agenda-mode . "Ω:Agenda")))
-         "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.")
 
        (defun clean-mode-line ()
          (interactive)