From 5197bdaa4a89b38f7a3813d870458476c3968e5c Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 13 Dec 2021 03:14:33 +0000 Subject: reshufflings --- notmuch.org | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) (limited to 'notmuch.org') diff --git a/notmuch.org b/notmuch.org index 9094c32..81b2270 100644 --- a/notmuch.org +++ b/notmuch.org @@ -504,3 +504,28 @@ (org-capture nil "X")))) #+end_src +* consult + #+begin_src emacs-lisp + (jao-load-path "consult-notmuch") + (require 'consult-notmuch) + (consult-customize consult-notmuch :preview-key 'any) + + (defvar jao-consult-notmuch-history nil) + + (defun jao-consult-notmuch-folder (&optional tree folder) + (interactive "P") + (let ((folder (if folder + (file-name-as-directory folder) + (completing-read "Group: " + jao-mailbox-folders + nil nil nil + jao-consult-notmuch-history + "."))) + (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)))) + + (with-eval-after-load "notmuch-hello" + (define-key notmuch-hello-mode-map "f" #'jao-consult-notmuch-folder)) + #+end_src -- cgit v1.2.3