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

Add: (path) predicate

Browse source
This commit is contained in:
Adam Porter 2019-09-09 14:00:05 -05:00
parent 29c3cdd360
commit ea2ed02c84
3 changed files with 25 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
org-ql.el
View file

@ -783,6 +783,15 @@ Or, when possible, fix the problem."
(null t)
(otherwise (member category categories)))))
(org-ql--defpred path (&rest regexps)
"Return non-nil if current heading's buffer's filename path matches any of REGEXPS (regexp strings).
Without arguments, return non-nil if buffer is file-backed."
(when (buffer-file-name)
(cl-typecase regexps
(null t)
(list (cl-loop for regexp in regexps
thereis (string-match regexp (buffer-file-name)))))))
(org-ql--defpred todo (&rest keywords)
"Return non-nil if current heading is a TODO item.
With KEYWORDS, return non-nil if its keyword is one of KEYWORDS (a list of strings)."