From 66988068b79ca5677c4c7f4fed66a815a1b33d53 Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 8 Nov 2021 00:47:34 +0000 Subject: gnus + nnml + notmuch --- notmuch.org | 27 --------------------------- 1 file changed, 27 deletions(-) (limited to 'notmuch.org') diff --git a/notmuch.org b/notmuch.org index 8683045..d3d832d 100644 --- a/notmuch.org +++ b/notmuch.org @@ -429,33 +429,6 @@ ("SPC" . jao-notmuch-tree-scroll-or-next) ("M-g" . jao-notmuch-browse-url)))) #+end_src -* consult - #+begin_src emacs-lisp - (jao-load-path "consult-notmuch") - (setq consult-notmuch-authors-width 30) - (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 * org mode Stolen and adapted from [[https://gist.github.com/fedxa/fac592424473f1b70ea489cc64e08911][Fedor Bezrukov]]. #+begin_src emacs-lisp -- cgit v1.2.3