Add: (org-ql-find-path)

This commit is contained in:
Adam Porter 2023-10-19 21:43:53 -05:00
parent 6d5b614fc5
commit ac2d43588a
3 changed files with 71 additions and 59 deletions

View file

@ -132,6 +132,13 @@ which see (but only the files are used)."
(interactive)
(org-ql-find (org-ql-search-directories-files)))
;;;###autoload
(defun org-ql-find-path ()
"Call `org-ql-find' to search outline paths in the current buffer."
(interactive)
(let ((org-ql-default-predicate 'outline-path))
(org-ql-find (current-buffer))))
(provide 'org-ql-find)
;;; org-ql-find.el ends here