alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mu4e: honor truncate-string-ellipsis

Browse Source 
Use truncate-string-to-width and thus honor truncate-string-ellipsis; so
to get 'fancy' ellipsis, one can set:
   (setq truncate-string-ellipsis "…")
This commit is contained in:
Dirk-Jan C. Binnema
2020-05-25 15:43:06 +03:00
parent 7e530f265f
commit 57d38aa707
3 changed files with 14 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
mu4e/mu4e-view.el
View File

@ -536,7 +536,7 @@ add text-properties to VAL."
"")))
(defun mu4e~view-header-field-fold ()
"Fold/unfold headers' value if there are more than one line."
"Fold/unfold headers' value if there is more than one line."
(interactive)
(let ((name-pos (field-beginning))
(value-pos (1+ (field-end))))
@ -554,7 +554,8 @@ add text-properties to VAL."
(vals (split-string (field-string value-pos) "\n" t))
(val (if (= (length vals) 1)
(car vals)
(concat (substring (car vals) 0 -3) "..."))))
(truncate-string-to-width (car vals)
(- (length (car vals)) 1) 0 nil t))))
(overlay-put o 'mu4e~view-header-field-folded t)
(overlay-put o 'display val))))))))