emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Properly align variable-pitch faces in header view

This commit is contained in:
Jeff Filipovits 2020-09-22 12:19:52 -04:00 committed by Dirk-Jan C. Binnema
parent 78ec46dc1b
commit 8ce966778a
1 changed files with 24 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
mu4e/mu4e-headers.el
View File

@ -681,12 +681,27 @@ found."
(:size (mu4e-display-size val)) (:size (mu4e-display-size val))
(t (mu4e~headers-custom-field-value msg field))))) (t (mu4e~headers-custom-field-value msg field)))))
(defsubst mu4e~headers-truncate-field (val width) (defun mu4e~headers-truncate-field (field val width)
"Truncate VAL to WIDTH." "Return VAL truncated to one less than WIDTH, with a trailing
(if width space propertized with a 'dislpay text property which expands to
(truncate-string-to-width val width 0 ?\s truncate-string-ellipsis) the correct column for display."
val)) (when width
(let ((end-col (cl-loop for (f . w) in mu4e-headers-fields
sum w
until (equal f field))))
(setq val (string-trim-right val))
(if (> width (length val))
(setq val (concat val " "))
(setq val
(concat
(truncate-string-to-width val (1- width) 0 ?\s t)
" ")))
(put-text-property (1- (length val))
(length val)
'display
`(space . (:align-to ,end-col))
val)))
val)
(defcustom mu4e-headers-field-properties-function nil (defcustom mu4e-headers-field-properties-function nil
"Function that specifies custom text properties for a header field. "Function that specifies custom text properties for a header field.
@ -701,16 +716,14 @@ avoid slowdowns."
:type 'function :type 'function
:group 'mu4e-headers) :group 'mu4e-headers)
(defsubst mu4e~headers-field-handler (f-w msg) (defsubst mu4e~headers-field-handler (f-w msg)
"Create a description of the field of MSG described by F-W." "Create a description of the field of MSG described by F-W."
(let* ((field-id (car f-w)) (let* ((field (car f-w))
(width (cdr f-w)) (width (cdr f-w))
(val (mu4e~headers-field-value msg field-id)) (val (mu4e~headers-field-value msg field))
(val (if width (mu4e~headers-truncate-field val width) val))) (val (if width (mu4e~headers-truncate-field field val width) val)))
val)) val))
(defsubst mu4e~headers-apply-flags (msg fieldval) (defsubst mu4e~headers-apply-flags (msg fieldval)
"Adjust LINE's face property based on FLAGS." "Adjust LINE's face property based on FLAGS."
(let* ((flags (mu4e-message-field msg :flags)) (let* ((flags (mu4e-message-field msg :flags))