add option in org-ql-find-in-agenda to search archive files

This commit is contained in:
Xu Jingcheng 2023-12-30 22:54:40 -06:00
parent a4bf5b0a92
commit 2dc97bf81d

View file

@ -110,10 +110,11 @@ which see (but only the files are used)."
marker))) marker)))
;;;###autoload ;;;###autoload
(defun org-ql-find-in-agenda () (defun org-ql-find-in-agenda (arg)
"Call `org-ql-find' on `org-agenda-files'." "Call `org-ql-find' on `org-agenda-files'.
(interactive) With a prefix argument, include archive files as well."
(org-ql-find (org-agenda-files))) (interactive "P")
(org-ql-find (org-agenda-files nil (not (not arg)))))
;;;###autoload ;;;###autoload
(defun org-ql-find-in-org-directory () (defun org-ql-find-in-org-directory ()