diff options
Diffstat (limited to 'email.org')
| -rw-r--r-- | email.org | 34 |
1 files changed, 34 insertions, 0 deletions
@@ -247,6 +247,13 @@ (setq bbdb-file (expand-file-name "~/.emacs.d/bbdb")) (bbdb-initialize 'message 'pgp 'mail) #+end_src +* mailboxes + #+begin_src emacs-lisp + (defun jao-list-mailboxes (base) + (let ((dir (expand-file-name base "~/var/mail"))) + (seq-difference (directory-files dir) + '("." ".." "sent" "inbox" "trash")))) + #+end_src * gnus *** Directories #+begin_src emacs-lisp @@ -322,6 +329,33 @@ ,(jao-notmuch--q "new" nil "n" '("tag:new")) ,(jao-notmuch--q "draft" nil "d" '("tag:draft")))) #+end_src +*** consult + #+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)) + (add-to-list 'consult-buffer-sources 'consult-notmuch-buffer-source)) + + (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 *** org mode integration Stolen and adapted from [[https://gist.github.com/fedxa/fac592424473f1b70ea489cc64e08911][Fedor Bezrukov]]. #+begin_src emacs-lisp |