generic narrowing for mail workspace

1 files changed, 38 insertions, 16 deletions

diff --git a/email.org b/email.org
index c67a9d0..fb0a2c1 100644
--- a/email.org
+++ b/email.org
@@ -254,6 +254,42 @@
         (seq-difference (directory-files dir)
                         '("." ".." "sent" "inbox" "trash"))))
   #+end_src
+* consult narrowing
+  #+begin_src emacs-lisp
+    (defvar jao-mail-consult-buffer-history nil)
+
+    (defun jao-mail-buffer-p (b)
+      (or (member (buffer-name b)
+                  '("*Calendar*" "inbox.org" "*Org Agenda*"
+                    "*Fancy Diary Entries*" "diary"))
+          (with-current-buffer b
+            (derived-mode-p 'notmuch-show-mode
+		            'notmuch-search-mode
+		            'notmuch-tree-mode
+		            'notmuch-hello-mode
+		            'notmuch-message-mode
+                            'gnus-group-mode
+                            'gnus-summary-mode
+                            'gnus-article-mode))))
+
+    (defvar jao-mail-consult-source
+      (list :name "mail buffer"
+            :category 'buffer
+            :hidden t
+            :narrow (cons ?n "mail buffer")
+            :history 'jao-mail-consult-buffer-history
+            :action (lambda (b)
+                      (when (not (string-blank-p (or b "")))
+                        (jao-afio--goto-mail)
+                        (if (get-buffer-window b)
+                            (pop-to-buffer b)
+                          (pop-to-buffer-same-window b))))
+            :items (lambda ()
+                     (mapcar #'buffer-name
+                             (seq-filter #'jao-mail-buffer-p (buffer-list))))))
+
+    (jao-consult-add-buffer-source 'jao-mail-consult-source "Mail" ?n)
+  #+end_src
 * gnus
 *** Directories
     #+begin_src emacs-lisp
@@ -622,25 +658,11 @@
     #+begin_src emacs-lisp
       (when (< emacs-major-version 28)
         (jao-load-path "consult-notmuch"))
+
       (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-notmuch-consult-buffer-history nil)
-        (defvar jao-notmuch-consult-source
-          (list :name "mail buffer"
-                :category 'buffer
-                :hidden t
-                :narrow (cons ?n "mail buffer")
-                :history 'jao-notmuch-consult-buffer-history
-                :require-match t
-                :action (lambda (b) (jao-afio--goto-mail) (pop-to-buffer b))
-                :items (lambda ()
-                         (append (consult-notmuch--interesting-buffers)
-                                 '("*Calendar*" "inbox.org" "*Org Agenda*")))))
-        (jao-consult-add-buffer-source 'jao-notmuch-consult-source "Mail" ?n))
+        :config (consult-customize consult-notmuch :preview-key 'any))
 
       (defvar jao-consult-notmuch-folders
         (seq-mapcat (lambda (base)