diff options
author | David Edmondson <dme@dme.org> | 2010-04-22 13:26:06 +0100 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2010-04-24 07:52:37 -0700 |
commit | 97570954cb583cacac35b0235cbe449a07630ae3 (patch) | |
tree | f143e9386bf7d596c922b3009ef55873dcc5d9c9 /emacs/notmuch-wash.el | |
parent | 7c5f017a30bda339eacb4cdde08a9a7aee3662f4 (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 and remove blank lines between attribution statements and
the citation,
- notmuch-wash-compress-blanks: Compress repeated blank lines and
remove leading and trailing blank lines.
Enable `notmuch-wash-tidy-citations' and
`notmuch-wash-compress-blanks' by default by adding them to
`notmuch-show-insert-text/plain-hook'. `notmuch-wash-wrap-long-lines'
is not enabled by default.
If `notmuch-wash-wrap-long-lines' is enabled, word wrapping of the
buffer leads to an unappealing display of text, so provide a function
to disable it and add it to the list of `notmuch-show-mode' hook
functions.
Diffstat (limited to 'emacs/notmuch-wash.el')
-rw-r--r-- | emacs/notmuch-wash.el | 72 |
1 files changed, 71 insertions, 1 deletions
diff --git a/emacs/notmuch-wash.el b/emacs/notmuch-wash.el index 5ca567f5..dd5d0a12 100644 --- a/emacs/notmuch-wash.el +++ b/emacs/notmuch-wash.el @@ -1,6 +1,7 @@ ;; notmuch-wash.el --- cleaning up message bodies ;; ;; Copyright © Carl Worth +;; Copyright © David Edmondson ;; ;; This file is part of Notmuch. ;; @@ -18,6 +19,11 @@ ;; along with Notmuch. If not, see <http://www.gnu.org/licenses/>. ;; ;; Authors: Carl Worth <cworth@cworth.org> +;; David Edmondson <dme@dme.org> + +(require 'coolj) + +;; (defvar notmuch-wash-signature-regexp "^\\(-- ?\\|_+\\)$" @@ -108,7 +114,7 @@ is what to put on the button." 'invisibility-spec invis-spec :type button-type)))) -(defun notmuch-wash-text/plain-citations (depth) +(defun notmuch-wash-markup-citations (depth) "Markup citations, and up to one signature in the buffer." (goto-char (point-min)) (beginning-of-line) @@ -151,4 +157,68 @@ is what to put on the button." ;; +(defun notmuch-wash-compress-blanks (depth) + "Compress successive blank lines into one blank line. Remove +any leading or trailing blank lines." + + ;; Algorithm derived from `article-strip-multiple-blank-lines' in + ;; `gnus-art.el'. + + ;; Make all blank lines empty. + (goto-char (point-min)) + (while (re-search-forward "^[[:space:]\t]+$" nil t) + (replace-match "" nil t)) + + ;; Replace multiple empty lines with a single empty line. + (goto-char (point-min)) + (while (re-search-forward "^\n\\(\n+\\)" nil t) + (delete-region (match-beginning 1) (match-end 1))) + + ;; Remove a leading blank line. + (goto-char (point-min)) + (if (looking-at "\n") + (delete-region (match-beginning 0) (match-end 0))) + + ;; Remove a trailing blank line. + (goto-char (point-max)) + (if (looking-at "\n") + (delete-region (match-beginning 0) (match-end 0)))) + +;; + +(defun notmuch-wash-tidy-citations (depth) + "Clean up citations." + + ;; Remove lines of repeated citation leaders with no other content. + (goto-char (point-min)) + (while (re-search-forward "\\(^>[> ]*\n\\)\\{2,\\}" nil t) + (replace-match "\\1")) + + ;; Remove citation leaders standing alone before a block of cited + ;; text. + (goto-char (point-min)) + (while (re-search-forward "\\(\n\\|^[^>].*\\)\n\\(^>[> ]*\n\\)" nil t) + (replace-match "\\1\n")) + + ;; Remove citation trailers standing alone after a block of cited + ;; text. + (goto-char (point-min)) + (while (re-search-forward "\\(^>[> ]*\n\\)\\(^$\\|^[^>].*\\)" nil t) + (replace-match "\\2")) + + ;; Remove blank lines between "Bill wrote:" and the citation. + (goto-char (point-min)) + (while (re-search-forward "^\\([^>].*\\):\n\n>" nil t) + (replace-match "\\1:\n>"))) + +;; + +(defun notmuch-wash-wrap-long-lines (depth) + "Wrap text in the region whilst maintaining the correct prefix." + (let ((coolj-wrap-follows-window-size nil) + (fill-column (- (window-width) depth))) + (coolj-wrap-region (point-min) (point-max)))) + +;; + (provide 'notmuch-wash) |