oreodave/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

(Emacs)~cleaned up mode line config

Browse Source
This commit is contained in:
Aryadev Chavali
2023-03-26 20:19:19 +01:00
parent 73973795dc
commit 21e9ab0400
1 changed files with 14 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
Emacs/.config/emacs/config.org
View File

@@ -240,6 +240,7 @@ the borders for Emacs.
(fringe-mode 0)) (fringe-mode 0))
#+end_src #+end_src
* Core packages * Core packages
** General ** General
A good package for defining key bindings. In this case, I generate a 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 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 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, little. I customised the Emacs modeline to give me a bit of info,
~telephone-line~ to give me a lot. ~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 Firstly, declare a variable for the separator between each module
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defconst +modeline/separator " " "Separator between modules.") (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 Then declare a variable for the number of separators between each
module in the modeline. module in the modeline.
#+begin_src emacs-lisp #+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 #+end_src
Then, declare a list of reserved characters for which the previously 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. string.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defconst +modeline/reserved-chars (list "[" "(") (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 #+end_src
Now declare a function that applies the separator with respect to the 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 (condition-case nil
(progn (progn
(string-blank-p STR) (string-blank-p STR)
(cond ((cl-member (car (last (split-string STR "" t))) +modeline/reserved-chars :test #'string=) STR) (if (cl-member (car (last (split-string STR "" t))) +modeline/reserved-chars :test #'string=)
(t (concat STR (cl-reduce #'concat (cl-loop for i from 1 to +modeline/sep-count collect +modeline/separator)))))) STR
(concat STR (cl-reduce #'concat (cl-loop for i from 1 to +modeline/sep-count collect +modeline/separator)))))
(error STR))) (error STR)))
#+end_src #+end_src
@@ -1074,7 +1079,9 @@ Finally, set the mode-line-format.
"%p[" "%p["
'(:eval (upcase '(:eval (upcase
(substring (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))) 0 1)))
"]" "]"
"%+%b(" "%+%b("