diff options
Diffstat (limited to 'completion.org')
| -rw-r--r-- | completion.org | 19 |
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 |