debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-12-22 01:14:53 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: express n-search-line-faces in terms of two new faces

Browse source 
The two new faces (notmuch-search-flagged-face and
notmuch-search-unread-face) make it easier to find the relevant face by
customizing notmuch-faces.  I plan to do the same to the other alists of
faces found elsewhere.
This commit is contained in:
Matt Armstrong 2016-07-21 14:30:33 -07:00 committed by David Bremner
parent 2ce0f1368f
commit 2a7b11b064
2 changed files with 42 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
NEWS
View file

@ -1,6 +1,16 @@
Notmuch 0.23 (UNRELEASED)
=========================
Emacs
-----
Face customization is easier
New faces `notmuch-search-flagged-face` and
`notmuch-search-unread-face` are used by default by
`notmuch-search-line-faces`. Customize `notmuch-faces` to modify
them.
Ruby Bindings
-------------

39
emacs/notmuch.el
View file

@ -311,6 +311,26 @@ there will be called at other points of notmuch execution."
:group 'notmuch-search
:group 'notmuch-faces)
(defface notmuch-search-flagged-face
'((t
(:weight bold)))
"Face used in search mode face for flagged threads.
This face is the default value for the \"flagged\" tag in
`notmuch-search-line-faces`."
:group 'notmuch-search
:group 'notmuch-faces)
(defface notmuch-search-unread-face
'((t
(:foreground "blue")))
"Face used in search mode for unread threads.
This face is the default value for the \"unread\" tag in
`notmuch-search-line-faces`."
:group 'notmuch-search
:group 'notmuch-faces)
(defun notmuch-search-mode ()
"Major mode displaying results of a notmuch search.
@ -654,9 +674,12 @@ of the result."
(goto-char (point-min))
(forward-line (1- notmuch-search-target-line)))))))))
(defcustom notmuch-search-line-faces '(("unread" :weight bold)
("flagged" :foreground "blue"))
"Tag/face mapping for line highlighting in notmuch-search.
(defcustom notmuch-search-line-faces
'(("unread" 'notmuch-search-unread-face)
("flagged" 'notmuch-search-flagged-face))
"Alist of tags to faces for line highlighting in notmuch-search.
Each element looks like (TAG . FACE).
A thread with TAG will have FACE applied.
Here is an example of how to color search results based on tags.
(the following text would be placed in your ~/.emacs file):
@ -665,10 +688,12 @@ Here is an example of how to color search results based on tags.
(\"deleted\" . (:foreground \"red\"
:background \"blue\"))))
The attributes defined for matching tags are merged, with earlier
attributes overriding later. A message having both \"deleted\"
and \"unread\" tags with the above settings would have a green
foreground and blue background."
The FACE must be a face name (a symbol or string), a property
list of face attributes, or a list of these. The faces for
matching tags are merged, with earlier attributes overriding
later. A message having both \"deleted\" and \"unread\" tags with
the above settings would have a green foreground and blue
background."
:type '(alist :key-type (string) :value-type (custom-face-edit))
:group 'notmuch-search
:group 'notmuch-faces)