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

Update docstrings

Browse source
This commit is contained in:
Ihor Radchenko 2021-04-06 23:02:29 +08:00
parent f05ae55371
commit 387594ed36
No known key found for this signature in database
GPG key ID: 6470762A7DA11D8B
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
org-ql.el
View file

@ -1234,7 +1234,7 @@ result form."
(setf org-ql-defpred-defer t) (setf org-ql-defpred-defer t)
(org-ql-defpred org-ql--and (&rest _) (org-ql-defpred org-ql--and (&rest _)
"Return non-nil if all the clauses match." "Normalizers and preambles for boolean (and ...) query."
:normalizers ((`(and) :normalizers ((`(and)
nil) nil)
(`(and . ,clauses) (`(and . ,clauses)
@ -1263,7 +1263,7 @@ result form."
:query `(and ,@queries)))))) :query `(and ,@queries))))))
(org-ql-defpred org-ql--or (&rest _) (org-ql-defpred org-ql--or (&rest _)
"Return non-nil if any of the clauses match." "Normalizers and preambles for boolean (or ...) query."
:normalizers ((`(or) :normalizers ((`(or)
nil) nil)
(`(or . ,clauses) (`(or . ,clauses)
@ -1291,8 +1291,8 @@ result form."
:case-fold t :case-fold t
:query `(or ,@queries)))))) :query `(or ,@queries))))))
(org-ql-defpred org-ql--when (_ &rest _) (org-ql-defpred org-ql--when (&rest _)
"Return values of CLAUSES when CONDITION is non-nil." "Normalizers and preambles for (when ...) query."
:normalizers :normalizers
((`(when ,condition . ,clauses) ((`(when ,condition . ,clauses)
`(when ,(org-ql-normalize-query condition) `(when ,(org-ql-normalize-query condition)
@ -1304,8 +1304,8 @@ result form."
:case-fold case-fold :case-fold case-fold
:query `(when ,condition ,@clauses)))))) :query `(when ,condition ,@clauses))))))
(org-ql-defpred org-ql--unless (_ &rest _) (org-ql-defpred org-ql--unless (&rest _)
"Return values of CLAUSES unless CONDITION is non-nil." "Normalizers and preambles for (unless ...) query."
:normalizers :normalizers
((`(unless ,condition . ,clauses) ((`(unless ,condition . ,clauses)
`(unless ,(org-ql-normalize-query condition) `(unless ,(org-ql-normalize-query condition)
@ -1318,7 +1318,7 @@ result form."
:query `(unless ,condition ,@clauses)))))) :query `(unless ,condition ,@clauses))))))
(org-ql-defpred org-ql--not (_) (org-ql-defpred org-ql--not (_)
"Match when CLAUSES don't match." "Normalizers and preambles for (not ...) query."
:normalizers :normalizers
((`(not . ,clauses) ((`(not . ,clauses)
`(not ,@(mapcar #'org-ql-normalize-query clauses))))) `(not ,@(mapcar #'org-ql-normalize-query clauses)))))