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: Highlight message-summary with background-color instead of inverse video.

Browse source 
Also, do this with a notmuch-message-summary-face variable so that
the user can easily customize the desried effect.
This commit is contained in:
Carl Worth 2009-12-03 09:52:43 -08:00
parent 682102c2df
commit 6945e7e103
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
notmuch.el
View file

@ -728,8 +728,7 @@ which this thread was originally shown."
(let ((beg (point-marker)) (let ((beg (point-marker))
(summary-end (copy-marker (line-beginning-position 2))) (summary-end (copy-marker (line-beginning-position 2)))
(btn nil)) (btn nil))
; Inverse video for subject (overlay-put (make-overlay beg summary-end) 'face 'notmuch-message-summary-face)
(overlay-put (make-overlay beg summary-end) 'face '(:inverse-video t))
(setq btn (make-button beg summary-end :type 'notmuch-button-body-toggle-type)) (setq btn (make-button beg summary-end :type 'notmuch-button-body-toggle-type))
(forward-line 1) (forward-line 1)
(end-of-line) (end-of-line)
@ -1046,6 +1045,12 @@ thread from that buffer can be show when done with this one)."
(interactive) (interactive)
(goto-char (point-min))) (goto-char (point-min)))
(defface notmuch-message-summary-face
'((((class color) (background light)) (:background "#f0f0f0"))
(((class color) (background dark)) (:background "#303030")))
"Face for the single-line message summary in notmuch-show-mode."
:group 'notmuch)
(defface notmuch-tag-face (defface notmuch-tag-face
'((((class color) '((((class color)
(background dark)) (background dark))