notmuch: outline mode to toggle threads

1 files changed, 24 insertions, 1 deletions

diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el
index 48ba775..cedd2cf 100644
--- a/lib/net/jao-notmuch.el
+++ b/lib/net/jao-notmuch.el
@@ -25,6 +25,7 @@
 ;;; Code:
 
 (require 'eww)
+(require 'outline)
 
 (require 'notmuch)
 (require 'notmuch-tree)
@@ -167,6 +168,25 @@
         (message "No URLs in this message")))))
 
 
+;; Outline mode for tree view
+
+(defun jao-notmuch--setup-outline ()
+  (setq-local outline-regexp ".+ [┬─] ")
+  (outline-minor-mode 1))
+
+(add-hook 'notmuch-tree-mode-hook #'jao-notmuch--setup-outline)
+
+(defun jao-notmuch--tree-toggle (&rest _args)
+  (when outline-minor-mode
+    (outline-toggle-children)))
+
+(advice-add 'notmuch-tree-matching-message :before #'jao-notmuch--tree-toggle)
+(advice-add 'notmuch-tree-matching-message :after #'jao-notmuch--tree-toggle)
+
+(define-key notmuch-tree-mode-map (kbd "T TAB") 'outline-cycle)
+(define-key notmuch-tree-mode-map (kbd "T t") 'outline-cycle)
+
+
 ;; Toggling mime parts and images
 
 (defun jao-notmuch--toggle-mime ()
@@ -263,7 +283,10 @@
   (let ((buffer (process-buffer proc))
         (status (process-status proc)))
     (when (and (eq status 'exit) (buffer-live-p buffer))
-      (with-current-buffer buffer (jao-notmuch--tree-update-buffer-name)))))
+      (with-current-buffer buffer
+        (jao-notmuch--tree-update-buffer-name)
+        (outline-hide-body)
+        (outline-toggle-children)))))
 
 (advice-add 'notmuch-tree-process-sentinel :after #'jao-notmuch--tree-sentinel)