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

mu4e-bookmarks: use mu4e-read-option 

Use the generic function.
This commit is contained in:
Dirk-Jan C. Binnema 2023-02-14 23:38:24 +02:00
parent 0354fa4fac
commit edb8cf17a9
1 changed files with 7 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
mu4e/mu4e-bookmarks.el
View File

@ -87,20 +87,13 @@ query."
Return the corresponding query. The bookmark are as defined in
`mu4e-bookmarks'."
(unless (mu4e-bookmarks) (mu4e-error "No bookmarks defined"))
(let* ((prompt (mu4e-format "%s" prompt))
(bmarks
(mapconcat
(lambda (bm)
(concat
"["
(propertize (make-string 1 (plist-get bm :key))
'face 'mu4e-highlight-face)
"]"
(plist-get bm :name)))
(mu4e-filter-single-key (mu4e-bookmarks))
", "))
(kar (read-char (concat prompt bmarks))))
(mu4e-get-bookmark-query kar)))
(let* ((bmarks (seq-map (lambda (bm)
(cons (format "%c%s"
(plist-get bm :key)
(plist-get bm :name))
(plist-get bm :query)))
(mu4e-filter-single-key (mu4e-bookmarks)))))
(mu4e-read-option bmarks prompt)))
(defun mu4e-get-bookmark-query (kar)
"Get the corresponding bookmarked query for shortcut KAR.