[notmuch] [PATCH 1/2] add functions to toggle the nearest backwards button of a given type

Subject: [notmuch] [PATCH 1/2] add functions to toggle the nearest backwards button of a given type

Date: Wed, 25 Nov 2009 01:13:32 -0800

To: notmuch@notmuchmail.org

Cc:

From: Alexander Botero-Lowry


It was noted that though local expansion was nice, it was also pretty
nice to have an easy way to just open the headers without moving to the
header button. So this exposes a number of symbols which search backwards
in the buffer for the nearest button of the desire type and push it
---
 notmuch.el |   33 +++++++++++++++++++++++++++++++++
 1 files changed, 33 insertions(+), 0 deletions(-)

diff --git a/notmuch.el b/notmuch.el
index 551048a..1853762 100644
--- a/notmuch.el
+++ b/notmuch.el
@@ -771,6 +771,39 @@ thread from that buffer can be show when done with this one)."
                   ))))
       )))
 
+(defun notmuch-toggle-hidden-section (section-button-type) 
+  (save-excursion
+    (let ((btn (forward-button -1)))
+      (while btn
+        (if (button-has-type-p btn section-button-type)
+            (progn (push-button)
+                   (setq btn nil))
+          (condition-case err
+              (setq btn (forward-button -1))
+            (error (setq btn nil))))))
+    )
+)
+
+(defun notmuch-toggle-hidden-headers ()
+  (interactive)
+  (notmuch-toggle-hidden-section 'notmuch-button-headers-toggle-type)
+)
+
+(defun notmuch-toggle-hidden-body ()
+  (interactive)
+  (notmuch-toggle-hidden-section 'notmuch-button-body-toggle-type)
+)
+
+(defun notmuch-toggle-hidden-citation ()
+  (interactive)
+  (notmuch-toggle-hidden-section 'notmuch-button-citation-toggle-type)
+)
+
+(defun notmuch-toggle-hidden-signature ()
+  (interactive)
+  (notmuch-toggle-hidden-section 'notmuch-button-signature-toggle-type)
+)
+
 (defvar notmuch-search-authors-width 40
   "Number of columns to use to display authors in a notmuch-search buffer.")
 
-- 
1.6.5.2


Thread: