diff options
author | jao <jao@gnu.org> | 2022-03-24 04:46:45 +0000 |
---|---|---|
committer | jao <jao@gnu.org> | 2022-03-24 04:46:45 +0000 |
commit | 5639716fd17b37569ac203297f52b063df54a270 (patch) | |
tree | 09211f42fe1fd1be1bcd5760db01c930aa3b39e0 /completion.org | |
parent | 57c931717dd9d446f2fd470f8aee06862c7cf67b (diff) | |
download | elibs-5639716fd17b37569ac203297f52b063df54a270.tar.gz elibs-5639716fd17b37569ac203297f52b063df54a270.tar.bz2 |
recoll improvements (transient)
Diffstat (limited to 'completion.org')
-rw-r--r-- | completion.org | 29 |
1 files changed, 26 insertions, 3 deletions
diff --git a/completion.org b/completion.org index 49c718a..2d2ea91 100644 --- a/completion.org +++ b/completion.org @@ -268,19 +268,42 @@ (defun jao-recoll-format (title url mtype) (let* ((u (replace-regexp-in-string "/home/jao/" "" url)) - (u (replace-regexp-in-string "\\(doc\\|org/doc\\|var/mail\\)/" "" u))) + (u (replace-regexp-in-string + "\\(doc\\|org/doc\\|.emacs.d/gnus/Mail\\)/" "" u))) (format "%s (%s, %s)" title (propertize u 'face 'jao-themes-f00) (propertize mtype 'face 'jao-themes-f01)))) + (defun jao-recoll-open-html (file) + (jao-afio--goto-www) + (eww-open-file file)) + + (defun jao-recoll-consult-messages () + (interactive) + (consult-recoll "mime:messages ")) + + (defun jao-recoll-consult-docs () + (interactive) + (consult-recoll (format "dir:%s/doc " jao-org-dir))) + (use-package consult-recoll :init (setq consult-recoll-open-fns '(("application/pdf" . jao-open-doc) - ("message/rfc822" . jao-org-links-open-mail)) + ("message/rfc822" . jao-org-links-open-mail) + ("text/html" . jao-recoll-open-html)) consult-recoll-search-flags nil consult-recoll-format-candidate #'jao-recoll-format) - :bind (("C-c R" . #'consult-recoll))) + :config + (transient-define-prefix jao-recoll-transient () + ["Recoll queries" + ("o" "recoll query" jao-recoll) + ("r" "consult recoll query" consult-recoll) + ("n" "consult recoll on notes" jao-org-notes-recoll) + ("d" "consult recoll on docs" jao-recoll-consult-docs) + ("m" "consult recoll on messages" jao-recoll-consult-messages)]) + + :bind (("s-r" . #'jao-recoll-transient))) #+end_src *** dh-diff hunks |