diff options
author | David Edmondson <dme@dme.org> | 2010-04-26 14:45:30 +0100 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2010-04-26 10:05:46 -0700 |
commit | 01ec4d3bcb660e0b26f66db02c25b3dfaec5e1fe (patch) | |
tree | 28c9bef2a294b60c4e6176efc0503f9f6021a465 /emacs/notmuch-show.el | |
parent | 6408270512dd654243b81ed57b81dad3f721938c (diff) |
emacs: Add more functions to clean up text/plain parts
Add:
- notmuch-wash-wrap-long-lines: Wrap lines longer than the width of
the current window whilst maintaining any citation prefix.
- notmuch-wash-tidy-citations: Tidy up citations by:
- compress repeated otherwise blank citation lines,
- remove otherwise blank citation lines at the head and tail of a
citation,
- notmuch-wash-elide-blank-lines: Compress repeated blank lines and
remove leading and trailing blank lines.
None of these is enabled by default - add them to
`notmuch-show-insert-text/plain-hook' to use.
Reviewed-by: Carl Worth <cworth@cworth.org>: I previously committed a
stale version of this patch.
Diffstat (limited to 'emacs/notmuch-show.el')
-rw-r--r-- | emacs/notmuch-show.el | 28 |
1 files changed, 19 insertions, 9 deletions
diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index f9d6c93..f5de8ae 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -62,16 +62,19 @@ any given message." "A list of functions called to decorate the headers listed in `notmuch-message-headers'.") -(defvar notmuch-show-hook '(notmuch-show-pretty-hook) - "A list of functions called after populating a -`notmuch-show' buffer.") - -(defvar notmuch-show-insert-text/plain-hook '(notmuch-wash-text/plain-citations) - "A list of functions called to clean up text/plain body parts.") +(defcustom notmuch-show-hook nil + "Functions called after populating a `notmuch-show' buffer." + :group 'notmuch + :type 'hook) -(defun notmuch-show-pretty-hook () - (goto-address-mode 1) - (visual-line-mode)) +(defcustom notmuch-show-insert-text/plain-hook '(notmuch-wash-excerpt-citations) + "Functions used to improve the display of text/plain parts." + :group 'notmuch + :type 'hook + :options '(notmuch-wash-wrap-long-lines + notmuch-wash-tidy-citations + notmuch-wash-elide-blank-lines + notmuch-wash-excerpt-citations)) (defmacro with-current-notmuch-show-message (&rest body) "Evaluate body with current buffer set to the text of current message" @@ -511,6 +514,13 @@ function is used. " query-context) (notmuch-show-insert-forest (notmuch-query-get-threads basic-args)))) + + ;; Enable buttonisation of URLs and email addresses in the + ;; buffer. + (goto-address-mode t) + ;; Act on visual lines rather than logical lines. + (visual-line-mode t) + (run-hooks 'notmuch-show-hook)) ;; Move straight to the first open message |