From a3f0ecc330db56c8ea692af187bd271ad4faa560 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Mon, 7 Aug 2023 19:03:21 +0300 Subject: [PATCH] Update Emacs configuration --- .emacs.d/init.el | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/.emacs.d/init.el b/.emacs.d/init.el index feb44c6..0170532 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -1271,12 +1271,13 @@ as the initial input for completion, and return that directory." ;; read feeds list from a separate file elfeed-feeds (esy/feeds))) +;;; Disable some minor-mode mode-line lighters -(with-eval-after-load 'whitespace-cleanup-mode - (setf (alist-get 'whitespace-cleanup-mode minor-mode-alist) '(""))) - -(with-eval-after-load 'outline - (setf (alist-get 'outline-minor-mode minor-mode-alist) '(""))) +(dolist (mm '((whitespace-cleanup-mode . whitespace-cleanup-mode) + (outline . outline-minor-mode) + (abbrev . abbrev-mode))) + (with-eval-after-load (car mm) + (setf (alist-get (cdr mm) minor-mode-alist) '("")))) ;;; Track currency exchange rates @@ -1372,7 +1373,9 @@ as the initial input for completion, and return that directory." 'face face)) " " 'display-time-string - 'battery-mode-line-string))) + 'battery-mode-line-string + (capitalize (substring (symbol-name (car custom-enabled-themes)) 3)) + " "))) "%5l" (4 "|%c") " " -- 2.39.2