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

Add info on update status in modeline

This commit is contained in:
galaunay 2017-07-19 12:46:26 +02:00
parent 4014e3d210
commit 513eb65388
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
mu4e/mu4e-headers.el
View File

@ -1107,7 +1107,13 @@ the query history stack."
(mu4e~quote-for-modeline mu4e~headers-last-query)
'face 'mu4e-modeline-face)
" "
(mu4e-context-label)))))
(mu4e-context-label)
(if (and mu4e-display-update-status-in-modeline
(buffer-live-p mu4e~update-buffer)
(process-live-p (get-buffer-process mu4e~update-buffer)))
(propertize " (updating)" 'face 'mu4e-modeline-face)
"")))))
;; when the buffer is already visible, select it; otherwise,
;; switch to it.
(unless (get-buffer-window buf 0)

5
mu4e/mu4e-vars.el
View File

@ -501,6 +501,11 @@ be quoted, since mu4e does this automatically for you."
:type '(repeat (cons (string :tag "Maildir") character))
:group 'mu4e-folders)
(defcustom mu4e-display-update-status-in-modeline nil
"Non-nil value will display the update status in the modeline."
:group 'mu4e
:type 'boolean)
;; Faces
(defgroup mu4e-faces nil
"Type faces (fonts) used in mu4e."