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

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

2
mu4e/mu4e-context.el
View File

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

5
mu4e/mu4e-vars.el
View File

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