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

mu4e: mu4e-mime-parts: small cleanups

Browse Source 
Small refactorings in mu4e--part-affixation, factoring out some shared
code.
This commit is contained in:
Dirk-Jan C. Binnema
2026-04-13 22:18:16 +03:00
committed by Seth Ladygo
parent 2a3f9a1399
commit e6e463fc95
1 changed files with 16 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
mu4e/mu4e-mime-parts.el
View File

@ -229,39 +229,30 @@ COMPLETIONS is the list of completion strings to affixate."
'face 'mu4e-system-face))
(target (propertize (or (plist-get part :target-dir) "")
'face 'mu4e-system-face))
;; Prefer the real filename: `nerd-icons' matches filenames
;; against regexes, so a specific name like `foo.patch' picks
;; a better icon than the dummy `file.patch' derived from the
;; MIME type. Only fall back to the MIME type when there's
;; no filename.
(icon (or (and (> (length raw-filename) 0)
(mu4e-file-name-to-icon raw-filename))
(mu4e-mime-type-to-icon
(plist-get part :mime-type))))
(prefix (if icon (concat icon " ") ""))
(suffix
;; For 'attachment the candidate itself is the filename; for
;; 'mime-part the candidate is a numeric part-id, so prepend
;; the filename here. Either way, pad to align the columns
;; that follow.
(filename-col
(pcase type
('attachment
(concat
(make-string (- (+ longest-filename 2)
(length (format "%s" candidate))) ?\s)
(format "%20s" mimetype)
" "
(format "%8s" size)
" "
(format "%s" (concat "-> " target))))
(length (format "%s" candidate))) ?\s))
('mime-part
(concat
" "
filename
(concat " " filename
(make-string (- (+ longest-filename 2)
(length filename)) ?\s)
(format "%20s" mimetype)
" "
(format "%8s" size)
" "
(format "%s" (concat "-> " target))))
(_ (mu4e-error "Unsupported annotation type %s" type)))))
(length filename)) ?\s)))
(_ (mu4e-error "Unsupported annotation type %s" type))))
(suffix
(concat filename-col
(format "%20s" mimetype) " "
(format "%8s" size) " "
"-> " target)))
(list candidate prefix suffix)))
completions))