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')
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