jao-consult-notmuch-folder

1 files changed, 19 insertions, 0 deletions

diff --git a/completion.org b/completion.org
index f34deaa..c7a1c70 100644
--- a/completion.org
+++ b/completion.org
@@ -120,8 +120,27 @@
     #+begin_src emacs-lisp
       (use-package consult-notmuch
         :ensure t
+        :init (setq consult-notmuch-authors-width 30)
         :config
         (add-to-list 'consult-config '(consult-notmuch :preview-key any)))
+
+      (defvar jao-consult-notmuch-folders
+        (seq-mapcat (lambda (base)
+                      (mapcar `(lambda (d) (format "%s/%s" ,base d))
+                              (jao-list-mailboxes base)))
+                    '("jao" "bigml" "feeds" "trove")))
+
+      (defun jao-consult-notmuch-folder (&optional tree folder)
+        (interactive "P")
+        (let* ((root "~/var/mail/")
+               (folder (if folder
+                           (file-name-as-directory folder)
+                         (completing-read "Folder: "
+                                          jao-consult-notmuch-folders)))
+               (folder (replace-regexp-in-string "/\\(.\\)" ".\\1" folder))
+               (init (read-string "Initial query: "))
+               (init (format "folder:/%s/ %s" folder init)))
+          (if tree (consult-notmuch-tree init) (consult-notmuch init))))
     #+end_src
 *** recoll
     #+begin_src emacs-lisp