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

mu4e: move modeline handling from mu4e-headers to mu4e-search

Browse Source
This commit is contained in:
Dirk-Jan C. Binnema
2023-01-08 13:31:51 +02:00
parent c0e41f95cf
commit f77bc903e7
3 changed files with 40 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
mu4e/mu4e-headers.el
View File

@ -236,18 +236,6 @@ Must have the same length as `mu4e-headers-thread-connection-prefix'.")
(defvar mu4e-headers-thread-duplicate-prefix '("=" . "≡ ")
"Prefix for duplicate messages.")
(defvar mu4e-headers-threaded-label '("T" . "Ⓣ")
"Non-fancy and fancy labels to indicate threaded search in the mode-line.")
(defvar mu4e-headers-full-label '("F" . "Ⓕ")
"Non-fancy and fancy labels to indicate full search in the mode-line.")
(defvar mu4e-headers-related-label '("R" . "Ⓡ")
"Non-fancy and fancy labels to indicate related search in the mode-line.")
(defvar mu4e-headers-skip-duplicates-label '("U" . "Ⓤ") ;; 'U' for 'unique'
"Non-fancy and fancy labels for include-related search in the mode-line.")
(defvar mu4e-headers-hide-label '("H" . "Ⓗ")
"Non-fancy and fancy labels to indicate header-hiding is active in
the mode-line.")
;;;; Various
(defvar mu4e-headers-actions
@ -1181,7 +1169,7 @@ The following specs are supported:
(mu4e-search-minor-mode)
(hl-line-mode 1)
(mu4e--modeline-register #'mu4e~headers-modeline-item)
(mu4e--modeline-register #'mu4e--search-modeline-item)
(mu4e--modeline-update))
;;; Highlighting
@ -1247,23 +1235,6 @@ message plist, or nil if not found."
;;; Queries & searching
(defvar mu4e~headers-mode-line-label "")
(defun mu4e~headers-modeline-item ()
"Update mode-line settings."
(let* ((flagstr
(mapconcat
(lambda (flag-cell)
(if (car flag-cell)
(if mu4e-use-fancy-chars
(cddr flag-cell) (cadr flag-cell) ) ""))
`((,mu4e-search-full . ,mu4e-headers-full-label)
(,mu4e-search-include-related . ,mu4e-headers-related-label)
(,mu4e-search-threads . ,mu4e-headers-threaded-label)
(,mu4e-search-skip-duplicates
. ,mu4e-headers-skip-duplicates-label)
(,mu4e-search-hide-enabled . ,mu4e-headers-hide-label))
"")))
(concat flagstr " " mu4e--search-last-query)))
;;; Search-based marking