From c4d526d25adf63c6a159096094e18b4c271b8e1c Mon Sep 17 00:00:00 2001
From: JSDurand <mmemmew@gmail.com>
Date: Sat, 5 Jun 2021 00:58:57 +0800
Subject: modeline: try to reduce the mode line clutter

* battery-conf.el (durand-battery-pmset): Whether it is AC or battery
should be clear with one letter: A or B.

* modeline.el (modeline-minor-modes-name-len-max): minor modes should
be more important, as it is not easy to discover which of them are
enabled.

(modeline-buffer-name-len-max): And the name of the buffer is easily
checked by a manual function call, so is less important to me.
---
 battery-conf.el | 3 ++-
 modeline.el     | 4 ++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/battery-conf.el b/battery-conf.el
index 2781eda..271db2e 100644
--- a/battery-conf.el
+++ b/battery-conf.el
@@ -44,7 +44,8 @@ The following %-sequences are provided:
       (ignore-errors (call-process "pmset" nil t nil "-g" "ps"))
       (goto-char (point-min))
       (when (re-search-forward "\\(?:Currentl?y\\|Now\\) drawing from '\\(AC\\|Battery\\) Power'" nil t)
-	(setq power-source (match-string 1))
+        ;; One letter suffices
+	(setq power-source (substring (match-string 1) 0 1))
 	(when (re-search-forward "^ -InternalBattery-0\\([ \t]+(id=[0-9]+)\\)*[ \t]+" nil t)
 	  (when (looking-at "\\([0-9]\\{1,3\\}\\)%")
 	    (setq load-percentage (match-string 1))
diff --git a/modeline.el b/modeline.el
index 2a0ca37..2d95adf 100644
--- a/modeline.el
+++ b/modeline.el
@@ -308,7 +308,7 @@ MAP is the local keymap of the text."
    mode-line-column-line-number-mode-map))
 
 ;;;###autoload
-(defvar modeline-minor-modes-name-len-max 20
+(defvar modeline-minor-modes-name-len-max 150
   "The maximal length for the display of minor modes in the mode line.")
 
 ;;;###autoload
@@ -374,7 +374,7 @@ Modified for my custom mode line."
 (advice-add 'mouse-minor-mode-menu :override #'durand-mouse-minor-mode-menu)
 
 ;;;###autoload
-(defvar modeline-buffer-name-len-max 50
+(defvar modeline-buffer-name-len-max 40
   "The maximal length of the name of the buffer to be displayed in the mode line.")
 
 (let ((map (make-sparse-keymap)))
-- 
cgit v1.2.3-18-g5258