Add a face for displaying the context in the mode-line

This commit is contained in:
Christophe Troestler 2016-08-12 00:06:34 +02:00
parent 744f288431
commit cec66211f5
2 changed files with 6 additions and 1 deletions

View File

@ -47,7 +47,7 @@ describing mu4e's contexts.")
(if (mu4e-context-current)
(concat "[" (propertize (mu4e~quote-for-modeline
(mu4e-context-name (mu4e-context-current)))
'face 'mu4e-title-face) "]") ""))
'face 'mu4e-context-face) "]") ""))
(defstruct mu4e-context
"A mu4e context object with the following members:

View File

@ -583,6 +583,11 @@ I.e. a message with the draft flag set."
"Face for a header title in the headers view."
:group 'mu4e-faces)
(defface mu4e-context-face
'((t :inherit mu4e-title-face :bold t))
"Face for displaying the context in the modeline."
:group 'mu4e-faces)
(defface mu4e-modeline-face
'((t :inherit font-lock-string-face :bold t))
"Face for the query in the mode-line."