Add further customizations to the modeline

global.org

@@ -154,18 +154,18 @@
         ((equal s "-") "·") ((equal s "@") "@") (t s)))))
 
      (defvar wilder-buffer-vc-mode-line
-                   '("%b" (vc-mode (:propertize
-                          ;; Strip the backend name from the VC status information
-                          (:eval (let* ((backend (downcase (symbol-name (vc-backend (buffer-file-name)))))
-                                        (branch (substring vc-mode (+ (length backend) 2)))
-                                        (s (substring vc-mode (+ (length backend) 1) (+ (length backend) 2)))
-                                        (status (cond ((equal s "-") "") ((equal s ":") "!") (t s))))
-                                   (concat "·" branch status)))
-                          face font-lock-comment-face))))
+       '("%b" (vc-mode (:propertize
+                        ;; Strip the backend name from the VC status information
+                        (:eval (let* ((backend (downcase (symbol-name (vc-backend (buffer-file-name)))))
+                                      (branch (substring vc-mode (+ (length backend) 2)))
+                                      (s (substring vc-mode (+ (length backend) 1) (+ (length backend) 2)))
+                                      (status (cond ((equal s "-") "") ((equal s ":") "!") (t s))))
+                                 (concat "·" branch status)))
+                        face magit-branch-local))))
      (put 'wilder-buffer-vc-mode-line 'risky-local-variable t)
 
      (defvar wilder-position
-       '("[%p,%I] " ))
+       '("[%p·%I] " ))
 
      (put 'wilder-position 'risky-local-variable t)
 
@@ -173,7 +173,6 @@
                    '("%e"
                      mode-line-front-space
                      mode-line-mule-info
-                     mode-line-client
                      mode-line-modified
                      mode-line-remote
                      mode-line-frame-identification
@@ -193,12 +192,14 @@
            (abbrev-mode . "")
            (auto-fill-function . "")
            (global-disable-mouse-mode . "")
+           (auto-revert-mode . "")
            ;; Major modes
            (lisp-interaction-mode . "λ")
            (hi-lock-mode . "")
            (python-mode . "Py")
            (emacs-lisp-mode . "EL")
-           (TeX-latex-mode . "LaTeχ")
+           (tex-mode . "χ")
+           (latex-mode . "χ")
            (org-mode . "Ω")
            (org-agenda-mode . "Ω:Agenda"))
          "Alist for `clean-mode-line'.