From: rush Date: Wed, 24 Jun 2026 20:08:02 +0000 (-0400) Subject: Simplified modeline X-Git-Url: https://git.earman.xyz/?a=commitdiff_plain;h=4cbfc374bc40ffb3af1c5ee2f475078d3bee6944;p=emacsinit.git Simplified modeline --- diff --git a/config.org b/config.org index 0035b4c..ac05e70 100644 --- a/config.org +++ b/config.org @@ -469,7 +469,7 @@ Libraries Not from the package manager (keymap-global-set "" #'end-of-buffer) #+END_SRC * Commenting and defun-level bindings -#+BEGIN_SRC emacs-lisp +#+BEGIN_SRC emacs-lisp (defun re/comment-dwim (&optional arg) "Comment region if active, otherwise comment line. Stolen from https://depp.brause.cc/dotemacs" @@ -911,28 +911,23 @@ Remove all minor modes from the mode-line, and show /all/ of them in the minor m (require 'minions) (minions-mode) -(setq minions-mode-line-lighter "|+") +(setq minions-mode-line-lighter "+") #+END_SRC *** Format #+BEGIN_SRC emacs-lisp -(setq-default mode-line-format '("%e" - (:eval (propertize " " +(setq-default mode-line-format '(" " + (:eval (propertize "%b" 'face (when (buffer-modified-p) 'mode-line-highlight))) " " - (:eval (if buffer-file-name - (abbreviate-file-name buffer-file-name) - "%b")) - ":%l,%C " - ;; (:eval (propertize "%n " 'face (when (buffer-narrowed-p) - ;; 'mode-line-highlight))) - mode-line-format-right-align - (vc-mode vc-mode) - " " + mode-line-remote + " " minions-mode-line-modes + (vc-mode vc-mode) + mode-line-format-right-align (:eval (number-to-string (line-number-at-pos (point-max)))) - " Lines | %Ib ")) + "L/%Ib (%l,%C) ")) #+END_SRC ** Pretty Symbols #+BEGIN_SRC emacs-lisp