diff options
| author | JSDurand <mmemmew@gmail.com> | 2021-06-05 00:58:57 +0800 |
|---|---|---|
| committer | JSDurand <mmemmew@gmail.com> | 2021-06-05 00:58:57 +0800 |
| commit | c4d526d25adf63c6a159096094e18b4c271b8e1c (patch) | |
| tree | f2cb494c6c81fb4c57e47a0ebc08ae1fcb17b896 | |
| parent | 88926c333ec078de572458b69f65dbfded85e39a (diff) | |
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.
| -rw-r--r-- | battery-conf.el | 3 | ||||
| -rw-r--r-- | 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))) |