Re: [notmuch] [PATCH] notmuch.el: Add face support to message summary and subject lines.
On Mon, 30 Nov 2009 22:50:39 +0800, Kan-Ru Chen ka...@kanru.info wrote: Remove the underline of both message summary and subject lines. Message summary still defaults to reverse-video, use customize to change it to whatever you like. Thanks for submitting this patch. I recently fixed the ugly underlining a separate way. Let me know if you think the current code needs any further improvement in this area. -Carl pgpqSzfSMkUuo.pgp Description: PGP signature ___ notmuch mailing list notmuch@notmuchmail.org http://notmuchmail.org/mailman/listinfo/notmuch
[notmuch] [PATCH] notmuch.el: Add face support to message summary and subject lines.
On Mon, 30 Nov 2009 22:10:59 +0530, "Aneesh Kumar K. V" wrote: > The subject line is already have a font face value attached. > message-header-name to show the name of the header and > message-header-subject to show the subject details. > Two faces will be merged automatically, and the button face is needed to remove the default button face (:underline t) -- Kan-Ru Chen | http://kanru.info
[notmuch] [PATCH] notmuch.el: Add face support to message summary and subject lines.
Remove the underline of both message summary and subject lines. Message summary still defaults to reverse-video, use customize to change it to whatever you like. Signed-off-by: Kan-Ru Chen --- notmuch.el | 20 1 files changed, 16 insertions(+), 4 deletions(-) diff --git a/notmuch.el b/notmuch.el index 65473ba..730538c 100644 --- a/notmuch.el +++ b/notmuch.el @@ -714,9 +714,8 @@ which this thread was originally shown." (let ((beg (point-marker)) (btn nil)) (end-of-line) -; Inverse video for subject -(overlay-put (make-overlay beg (point)) 'face '(:inverse-video t)) -(setq btn (make-button beg (point) :type 'notmuch-button-body-toggle-type)) +(setq btn (make-button beg (point) :type 'notmuch-button-body-toggle-type + 'face 'notmuch-show-message-summary-face)) (forward-line 1) (end-of-line) (let ((beg-hidden (point-marker))) @@ -739,7 +738,8 @@ which this thread was originally shown." (forward-line) (make-button (line-beginning-position) (line-end-position) 'invisibility-spec (cons invis-spec t) -:type 'notmuch-button-headers-toggle-type)) +:type 'notmuch-button-headers-toggle-type +'face 'notmuch-show-message-headers-face)) (goto-char end) (insert "\n") (set-marker beg nil) @@ -959,6 +959,18 @@ thread from that buffer can be show when done with this one)." "Notmuch search mode face used to highligh tags." :group 'notmuch) +(defface notmuch-show-message-summary-face + '((default +(:bold t :inverse-video t))) + "Notmuch show mode face used to highlight summary line." + :group 'notmuch) + +(defface notmuch-show-message-headers-face + '((default + (:bold t))) + "Notmuch show mode face used to highlight header lines." + :group 'notmuch) + (defvar notmuch-tag-face-alist nil "List containing the tag list that need to be highlighed") -- 1.6.5.3
[notmuch] [PATCH] notmuch.el: Add face support to message summary and subject lines.
On Mon, 30 Nov 2009 22:50:39 +0800, Kan-Ru Chen wrote: > Remove the underline of both message summary and subject lines. > Message summary still defaults to reverse-video, use customize to > change it to whatever you like. > > Signed-off-by: Kan-Ru Chen > --- > notmuch.el | 20 > 1 files changed, 16 insertions(+), 4 deletions(-) > > diff --git a/notmuch.el b/notmuch.el > index 65473ba..730538c 100644 > --- a/notmuch.el > +++ b/notmuch.el > @@ -714,9 +714,8 @@ which this thread was originally shown." >(let ((beg (point-marker)) > (btn nil)) > (end-of-line) > -; Inverse video for subject > -(overlay-put (make-overlay beg (point)) 'face '(:inverse-video t)) > -(setq btn (make-button beg (point) :type > 'notmuch-button-body-toggle-type)) > +(setq btn (make-button beg (point) :type 'notmuch-button-body-toggle-type > + 'face 'notmuch-show-message-summary-face)) > (forward-line 1) > (end-of-line) > (let ((beg-hidden (point-marker))) > @@ -739,7 +738,8 @@ which this thread was originally shown." >(forward-line) >(make-button (line-beginning-position) (line-end-position) > 'invisibility-spec (cons invis-spec t) > -:type 'notmuch-button-headers-toggle-type)) > +:type 'notmuch-button-headers-toggle-type > +'face 'notmuch-show-message-headers-face)) > (goto-char end) > (insert "\n") > (set-marker beg nil) > @@ -959,6 +959,18 @@ thread from that buffer can be show when done with this > one)." >"Notmuch search mode face used to highligh tags." >:group 'notmuch) > > +(defface notmuch-show-message-summary-face > + '((default > +(:bold t :inverse-video t))) > + "Notmuch show mode face used to highlight summary line." > + :group 'notmuch) > + > +(defface notmuch-show-message-headers-face > + '((default > + (:bold t))) > + "Notmuch show mode face used to highlight header lines." > + :group 'notmuch) > + > (defvar notmuch-tag-face-alist nil >"List containing the tag list that need to be highlighed") > The subject line is already have a font face value attached. message-header-name to show the name of the header and message-header-subject to show the subject details. -aneesh