summaryrefslogtreecommitdiffhomepage
path: root/email.org
diff options
context:
space:
mode:
Diffstat (limited to 'email.org')
-rw-r--r--email.org26
1 files changed, 0 insertions, 26 deletions
diff --git a/email.org b/email.org
index d4bb066..3f41902 100644
--- a/email.org
+++ b/email.org
@@ -361,29 +361,3 @@
(setq notmuch-address-command (if jao-notmuch-enabled-p 'internal 'as-is))
(jao-load-org "notmuch")
#+end_src
-* consult notmuch
- #+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* ((root "~/var/mail/")
- (folder (if folder
- (file-name-as-directory folder)
- (completing-read "Folder: "
- 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