jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix org-ql-refile so that it handles all possible values for org-refile-targets

Browse source 
As per the documentation of `org-refile-targets`, each specification of the files in a given cons cell can be a list of files "or a symbol whose function or variable value will be used..." This ensures `org-refile-targets` can handle the case where the specification is a symbol with a variable value.
This commit is contained in:
apc 2025-02-11 21:03:13 -05:00 • committed by GitHub
parent 98c62ab0a6
commit 95dd23ee92
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
org-ql-find.el
View file

@ -117,7 +117,10 @@ which see (but only the files are used)."
(cl-loop for (files-spec . _candidate-spec) in org-refile-targets (cl-loop for (files-spec . _candidate-spec) in org-refile-targets
append (cl-typecase files-spec append (cl-typecase files-spec
(null (list (current-buffer))) (null (list (current-buffer)))
(symbol (pcase (funcall files-spec) (function (pcase (funcall files-spec)
((and (pred stringp) file) (list file))
((and (pred listp) files) files)))
(symbol (pcase (eval files-spec)
((and (pred stringp) file) (list file)) ((and (pred stringp) file) (list file))
((and (pred listp) files) files))) ((and (pred listp) files) files)))
(list files-spec))))))) (list files-spec)))))))
@ -136,7 +139,6 @@ which see (but only the files are used)."
nil nil
;; Position ;; Position
marker)))) marker))))
;;;###autoload ;;;###autoload
(defun org-ql-find-in-agenda () (defun org-ql-find-in-agenda ()
"Call `org-ql-find' on `org-agenda-files'." "Call `org-ql-find' on `org-agenda-files'."