Add: (org-ql-find-in-agenda, org-ql-find-in-org-directory)

This commit is contained in:
Adam Porter 2022-06-25 10:58:17 -05:00
parent dc02c59cad
commit 5f058b9eee
3 changed files with 81 additions and 78 deletions

View file

@ -30,6 +30,7 @@
(require 'org)
(require 'org-ql)
(require 'org-ql-search)
;;;; Customization
@ -207,8 +208,16 @@ single predicate)."
(run-hook-with-args 'org-ql-find-goto-hook))))))
;;;###autoload
(defun org-ql-find-in-agenda ()
"Call `org-ql-find' on `org-agenda-files'."
(interactive)
(org-ql-find (org-agenda-files)))
;;;###autoload
(defun org-ql-find-in-org-directory ()
"Call `org-ql-find' on files in `org-directory'."
(interactive)
(org-ql-find (org-ql-search-directories-files)))
(defun org-ql-find--snippet-simple (&optional _regexp)
"Return a snippet of the current entry.