diff options
author | jao <jao@gnu.org> | 2021-06-05 16:23:46 +0100 |
---|---|---|
committer | jao <jao@gnu.org> | 2021-06-05 16:23:46 +0100 |
commit | ca8a4fafe65413f63adf4ce6e50b69174a41f12b (patch) | |
tree | 748bdd66836b868c8fd33f2de82b96a87c70db59 | |
parent | 38590fd6c9e7aec2ada3dc208a4b76823e95d216 (diff) | |
download | elibs-ca8a4fafe65413f63adf4ce6e50b69174a41f12b.tar.gz elibs-ca8a4fafe65413f63adf4ce6e50b69174a41f12b.tar.bz2 |
consult narrowing for the mail workspace
-rw-r--r-- | email.org | 15 |
1 files changed, 14 insertions, 1 deletions
@@ -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) |