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

Buttonize citation expander.

Browse source 
Currently the button has no action or special handling at all.
This commit is contained in:
Alexander Botero-Lowry 2009-11-19 12:30:32 -08:00 committed by Alexander Botero-Lowry
parent a15f174437
commit 14f492ba0c
1 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
notmuch.el
View file

@ -490,10 +490,17 @@ which this thread was originally shown."
(forward-line)) (forward-line))
(let ((overlay (make-overlay beg-sub (point)))) (let ((overlay (make-overlay beg-sub (point))))
(overlay-put overlay 'invisible 'notmuch-show-citation) (overlay-put overlay 'invisible 'notmuch-show-citation)
(overlay-put overlay 'before-string (let (
(concat indent (p (point))
"[" (number-to-string (count-lines beg-sub (point))) (cite-button-text (concat "[" (number-to-string (count-lines beg-sub (point)))
"-line citation. Press 'c' to show.]\n"))))) "-line citation. Press 'c' to show.]"))
)
(goto-char (- beg-sub 1))
(insert (concat "\n" indent))
(insert-button cite-button-text)
(insert "\n")
(goto-char (+ (length cite-button-text) p))
))))
(move-to-column depth) (move-to-column depth)
(if (looking-at notmuch-show-signature-regexp) (if (looking-at notmuch-show-signature-regexp)
(let ((sig-lines (- (count-lines beg-sub end) 1))) (let ((sig-lines (- (count-lines beg-sub end) 1)))