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

Alexander Botero-Lowry alex.boterolowry at gmail.com
Wed Nov 25 01:13:32 PST 2009


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



More information about the notmuch mailing list