diff options
Diffstat (limited to 'Emacs/.config/emacs/config.org')
| -rw-r--r-- | Emacs/.config/emacs/config.org | 21 |
1 files changed, 14 insertions, 7 deletions
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(" |