From ca8a4fafe65413f63adf4ce6e50b69174a41f12b Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 5 Jun 2021 16:23:46 +0100
Subject: consult narrowing for the mail workspace

---
 email.org | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

(limited to 'email.org')

diff --git a/email.org b/email.org
index a08771c..d4ccc45 100644
--- a/email.org
+++ b/email.org
@@ -584,7 +584,20 @@
         :init (setq consult-notmuch-authors-width 30)
         :config
         (add-to-list 'consult-config '(consult-notmuch :preview-key any))
-        (add-to-list 'consult-buffer-sources 'consult-notmuch-buffer-source))
+
+        (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))
 
       (defvar jao-consult-notmuch-folders
         (seq-mapcat (lambda (base)
-- 
cgit v1.2.3