debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-21 18:38:08 +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) 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 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-search
:group 'notmuch-faces) :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 () (defun notmuch-search-mode ()
"Major mode displaying results of a notmuch search. "Major mode displaying results of a notmuch search.
@ -654,9 +674,12 @@ of the result."
(goto-char (point-min)) (goto-char (point-min))
(forward-line (1- notmuch-search-target-line))))))))) (forward-line (1- notmuch-search-target-line)))))))))
(defcustom notmuch-search-line-faces '(("unread" :weight bold) (defcustom notmuch-search-line-faces
("flagged" :foreground "blue")) '(("unread" 'notmuch-search-unread-face)
"Tag/face mapping for line highlighting in notmuch-search. ("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. Here is an example of how to color search results based on tags.
(the following text would be placed in your ~/.emacs file): (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\" (\"deleted\" . (:foreground \"red\"
:background \"blue\")))) :background \"blue\"))))
The attributes defined for matching tags are merged, with earlier The FACE must be a face name (a symbol or string), a property
attributes overriding later. A message having both \"deleted\" list of face attributes, or a list of these. The faces for
and \"unread\" tags with the above settings would have a green matching tags are merged, with earlier attributes overriding
foreground and blue background." 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)) :type '(alist :key-type (string) :value-type (custom-face-edit))
:group 'notmuch-search :group 'notmuch-search
:group 'notmuch-faces) :group 'notmuch-faces)