mirror of https://github.com/djcb/mu.git
shorten modeline str if longer than max-width
This commit is contained in:
parent
9ad4a76eac
commit
b95fb8b95a
|
@ -1299,8 +1299,20 @@ the view and compose modes."
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
(defun mu4e~quote-for-modeline (str)
|
(defun mu4e~quote-for-modeline (str)
|
||||||
"Quote a string to be used literally in the modeline."
|
"Quote a string to be used literally in the modeline. The
|
||||||
(replace-regexp-in-string "%" "%%" str t t))
|
string will be shortened to fit if its length exceeds
|
||||||
|
`mu4e-modeline-max-width'."
|
||||||
|
(let* (;; Adjust the max-width to include the length of the " ..." string
|
||||||
|
(width (let ((w (- mu4e-modeline-max-width 4)))
|
||||||
|
(if (> w 0) w 0)))
|
||||||
|
(str (let* ((l (length str))
|
||||||
|
;; If the input str is longer than the max-width, then will shorten
|
||||||
|
(w (if (> l width) width l))
|
||||||
|
;; If the input str is longer than the max-width, then append " ..."
|
||||||
|
(a (if (> l width) " ..." "")))
|
||||||
|
(concat (substring str 0 w) a))))
|
||||||
|
;; Escape the % character
|
||||||
|
(replace-regexp-in-string "%" "%%" str t t)))
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
|
|
|
@ -180,6 +180,13 @@ threads. You can customize the exact fancy characters used with
|
||||||
:type 'string
|
:type 'string
|
||||||
:group 'mu4e)
|
:group 'mu4e)
|
||||||
|
|
||||||
|
(defcustom mu4e-modeline-max-width 30
|
||||||
|
"Determines the maximum length of the string to be used in the
|
||||||
|
modeline. If the string exeeds this limit, it will be shortened
|
||||||
|
to fit."
|
||||||
|
:type 'integer
|
||||||
|
:group 'mu4e)
|
||||||
|
|
||||||
(defvar mu4e-debug nil
|
(defvar mu4e-debug nil
|
||||||
"When set to non-nil, log debug information to the *mu4e-log* buffer.")
|
"When set to non-nil, log debug information to the *mu4e-log* buffer.")
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue