From 21e9ab040091b5aed64d831eefe4bc5add96cc34 Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Sun, 26 Mar 2023 20:19:19 +0100
Subject: (Emacs)~cleaned up mode line config

---
 Emacs/.config/emacs/config.org | 21 ++++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

(limited to 'Emacs/.config/emacs')

diff --git a/Emacs/.config/emacs/config.org b/Emacs/.config/emacs/config.org
index b2d4fb5..8219c82 100644
--- a/Emacs/.config/emacs/config.org
+++ b/Emacs/.config/emacs/config.org
@@ -240,6 +240,7 @@ the borders for Emacs.
   (fringe-mode 0))
 #+end_src
 * Core packages
+
 ** General
 A good package for defining key bindings.  In this case, I generate a
 new definer for the "LEADER" keys.  Leader is bound to ~SPC~ and it's
@@ -1031,9 +1032,10 @@ Setup global mode after evil mode has been loaded
 A mode line in an editor can provide a LOT of information, or very
 little.  I customised the Emacs modeline to give me a bit of info,
 ~telephone-line~ to give me a lot.
-*** Emacs Mode-line
-Check out [[*Telephone-line][this package]] for my current modeline.
 
+Currently I use the default mode line with some customisation;
+simplicity is above all.
+*** Emacs Mode-line
 Firstly, declare a variable for the separator between each module
 #+begin_src emacs-lisp
 (defconst +modeline/separator " " "Separator between modules.")
@@ -1042,7 +1044,8 @@ Firstly, declare a variable for the separator between each module
 Then declare a variable for the number of separators between each
 module in the modeline.
 #+begin_src emacs-lisp
-(defconst +modeline/sep-count 4 "Number of +modline/separator instances separating modules.")
+(defconst +modeline/sep-count 4
+  "Number of +modline/separator instances separating modules.")
 #+end_src
 
 Then, declare a list of reserved characters for which the previously
@@ -1050,7 +1053,8 @@ declared seperator won't be applied when placed at the end of a module
 string.
 #+begin_src emacs-lisp
 (defconst +modeline/reserved-chars (list "[" "(")
-  "Characters that, when at the end of a module string, won't have the separator applied to them.")
+  "Characters that, when at the end of a module string, won't
+  have the separator applied to them.")
 #+end_src
 
 Now declare a function that applies the separator with respect to the
@@ -1060,8 +1064,9 @@ reserved characters to any one string.
   (condition-case nil
       (progn
         (string-blank-p STR)
-        (cond ((cl-member (car (last (split-string STR "" t))) +modeline/reserved-chars :test #'string=) STR)
-              (t (concat STR (cl-reduce #'concat (cl-loop for i from 1 to +modeline/sep-count collect +modeline/separator))))))
+        (if (cl-member (car (last (split-string STR "" t))) +modeline/reserved-chars :test #'string=)
+            STR
+          (concat STR (cl-reduce #'concat (cl-loop for i from 1 to +modeline/sep-count collect +modeline/separator)))))
     (error STR)))
 #+end_src
 
@@ -1074,7 +1079,9 @@ Finally, set the mode-line-format.
                "%p["
                '(:eval (upcase
                         (substring
-                         (format "%s" (if (bound-and-true-p evil-state) evil-state ""))
+                         (format "%s" (if (bound-and-true-p evil-state)
+                                          evil-state
+                                        ""))
                          0 1)))
                "]"
                "%+%b("
-- 
cgit v1.2.3-13-gbd6f