From 003c0cf29a8e8f5edb9c30964b3c76b3acdbf6f6 Mon Sep 17 00:00:00 2001 From: JSDurand Date: Wed, 31 Jul 2024 16:39:00 +0800 Subject: modeline: Add a simplified format for GNUS. * modeline.el (modeline-format-gnus, modeline-gnus-format-left): A format for GNUS that does not display some unnecessary information. --- modeline.el | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) diff --git a/modeline.el b/modeline.el index ee2c0fd..3f98d77 100644 --- a/modeline.el +++ b/modeline.el @@ -89,6 +89,35 @@ (modeline-propertize (format-mode-line global-mode-string face))))) +;;;###autoload +(defun modeline-format-gnus () + "The mode line format for GNUS." + (let* ((left (modeline-gnus-format-left)) + (right (string-trim-right (modeline-format-right))) + (left-len (string-pixel-width left)) + (right-len (string-pixel-width right)) + (middle (propertize + (string 32) + 'display + (list + 'space + :width + (list + (- (window-pixel-width) left-len right-len + (- modeline-right-offset))))))) + (concat left middle right))) + +(defun modeline-gnus-format-left () + "The left part of the mode line for GNUS." + (declare (side-effect-free t) (pure t)) + (concat + (modeline-spc) + (modeline-format-buffer-name) + (modeline-spc) + (modeline-format-keycast) + (modeline-spc) + (modeline-format-minor-modes))) + ;;;###autoload (defun modeline-format-left () "The left mode line format." -- cgit v1.2.3-18-g5258