From cf81ccc6e7a4cb50151d1b2f7a81369ef516a0db Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 16 May 2021 02:12:12 +0100 Subject: fix for init loading --- completion.org | 27 --------------------------- 1 file changed, 27 deletions(-) (limited to 'completion.org') diff --git a/completion.org b/completion.org index 29b85a3..b00b8cd 100644 --- a/completion.org +++ b/completion.org @@ -118,33 +118,6 @@ (define-key consult-narrow-map (vconcat consult-narrow-key "?") #'consult-narrow-help)) #+end_src -*** notmuch - #+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 *** recoll #+begin_src emacs-lisp (jao-load-path "consult-recoll") -- cgit v1.2.3