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

emacs: Allow control over faces for search mode columns.

Browse source 
Add face declarations for the date, count, matching author and subject
columns in search mode and apply those faces when building the search
mode display.

Approved-by: Jameson Rollins <jrollins@finestructure.net>
This commit is contained in:
David Edmondson 2010-04-29 08:32:31 +01:00 committed by Carl Worth
parent 965b3e6a8b
commit 55cef18f95
1 changed files with 44 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

61
emacs/notmuch.el
View file

@ -285,16 +285,24 @@ For a mouse binding, return nil."
"Face for the single-line message summary in notmuch-show-mode."
:group 'notmuch)
(defface notmuch-tag-face
'((((class color)
(background dark))
(:foreground "OliveDrab1"))
(((class color)
(background light))
(:foreground "navy blue" :bold t))
(t
(:bold t)))
"Notmuch search mode face used to highligh tags."
(defface notmuch-search-date
'((t :inherit default))
"Face used in search mode for dates."
:group 'notmuch)
(defface notmuch-search-count
'((t :inherit default))
"Face used in search mode for the count matching the query."
:group 'notmuch)
(defface notmuch-search-subject
'((t :inherit default))
"Face used in search mode for subjects."
:group 'notmuch)
(defface notmuch-search-matching-authors
'((t :inherit default))
"Face used in search mode for authors matching the query."
:group 'notmuch)
(defface notmuch-search-non-matching-authors
@ -304,10 +312,23 @@ For a mouse binding, return nil."
(((class color)
(background light))
(:foreground "grey60"))
(t (:italic t)))
(t
(:italic t)))
"Face used in search mode for authors not matching the query."
:group 'notmuch)
(defface notmuch-tag-face
'((((class color)
(background dark))
(:foreground "OliveDrab1"))
(((class color)
(background light))
(:foreground "navy blue" :bold t))
(t
(:bold t)))
"Face used in search mode face for tags."
:group 'notmuch)
;;;###autoload
(defun notmuch-search-mode ()
"Major mode displaying results of a notmuch search.
@ -599,21 +620,27 @@ matching will be applied."
;; `notmuch-search-process-filter'.
(save-match-data
(if (string-match "\\(.*\\)|\\(..*\\)" truncated-string)
(concat (match-string 1 truncated-string) ","
(concat (propertize (concat (match-string 1 truncated-string) ",")
'face 'notmuch-search-matching-authors)
(propertize (match-string 2 truncated-string)
'face 'notmuch-search-non-matching-authors))
truncated-string)))))
(propertize truncated-string 'face 'notmuch-search-matching-authors))))))
(defun notmuch-search-insert-field (field date count authors subject tags)
(cond
((string-equal field "date")
(insert (format (cdr (assoc field notmuch-search-result-format)) date)))
(insert (propertize (format (cdr (assoc field notmuch-search-result-format)) date)
'face 'notmuch-search-date)))
((string-equal field "count")
(insert (format (cdr (assoc field notmuch-search-result-format)) count)))
(insert (propertize (format (cdr (assoc field notmuch-search-result-format)) count)
'face 'notmuch-search-count)))
((string-equal field "subject")
(insert (propertize (format (cdr (assoc field notmuch-search-result-format)) subject)
'face 'notmuch-search-subject)))
((string-equal field "authors")
(notmuch-search-insert-authors (cdr (assoc field notmuch-search-result-format)) authors))
((string-equal field "subject")
(insert (format (cdr (assoc field notmuch-search-result-format)) subject)))
((string-equal field "tags")
(insert (concat "(" (propertize tags 'font-lock-face 'notmuch-tag-face) ")")))))