From 2dc97bf81da1a54eda64f2cf78118352d906b6fd Mon Sep 17 00:00:00 2001 From: Xu Jingcheng Date: Sat, 30 Dec 2023 22:54:40 -0600 Subject: [PATCH] add option in `org-ql-find-in-agenda` to search archive files --- org-ql-find.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/org-ql-find.el b/org-ql-find.el index e4b16a6..85a95b4 100644 --- a/org-ql-find.el +++ b/org-ql-find.el @@ -110,10 +110,11 @@ which see (but only the files are used)." marker))) ;;;###autoload -(defun org-ql-find-in-agenda () - "Call `org-ql-find' on `org-agenda-files'." - (interactive) - (org-ql-find (org-agenda-files))) +(defun org-ql-find-in-agenda (arg) + "Call `org-ql-find' on `org-agenda-files'. +With a prefix argument, include archive files as well." + (interactive "P") + (org-ql-find (org-agenda-files nil (not (not arg))))) ;;;###autoload (defun org-ql-find-in-org-directory ()