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

Simplify tags-inherited normalizer

Browse source
This commit is contained in:
Cyrille Froehlich 2021-06-23 17:48:06 +09:00
parent 363f7623c1
commit 99a2285317
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
org-ql.el
View file

@ -1750,8 +1750,7 @@ Tests both inherited and local tags."
(org-ql-defpred (tags-inherited inherited-tags tags-i itags) (&rest tags)
"Return non-nil if current heading's inherited tags include one or more of TAGS (a list of strings).
If TAGS is nil, return non-nil if heading has any inherited tags."
:normalizers ((`(,predicate-names) `(tags-inherited))
(`(,predicate-names . ,tags) `(tags-inherited ,@tags)))
:normalizers ((`(,predicate-names . ,tags) `(tags-inherited ,@tags)))
:body (cl-macrolet ((tags-p (tags)
`(and ,tags
(not (eq 'org-ql-nil ,tags)))))