diff options
author | jao <jao@gnu.org> | 2021-12-13 03:14:33 +0000 |
---|---|---|
committer | jao <jao@gnu.org> | 2021-12-13 03:14:33 +0000 |
commit | 5197bdaa4a89b38f7a3813d870458476c3968e5c (patch) | |
tree | 9365e4ec90ce56db0e10445809a030d094ebb883 /email.org | |
parent | 79a4f5313188476eb3ff601d85e6b1c24460be35 (diff) | |
download | elibs-5197bdaa4a89b38f7a3813d870458476c3968e5c.tar.gz elibs-5197bdaa4a89b38f7a3813d870458476c3968e5c.tar.bz2 |
reshufflings
Diffstat (limited to 'email.org')
-rw-r--r-- | email.org | 26 |
1 files changed, 0 insertions, 26 deletions
@@ -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 |