Docs: (defpred.org) Fix macro example
Thanks to Pete Kazmier (@pkazmier) for reporting (see issue #152).
This commit is contained in:
parent
6e6f62dfaa
commit
890c24786a
1 changed files with 15 additions and 2 deletions
|
|
@ -331,11 +331,24 @@ Finally, if you're a Lisper who appreciates anaphora, you might prefer a more sy
|
|||
(org-ql-defpred (person p) (&rest names)
|
||||
"Search for entries about any of NAMES."
|
||||
:normalizers ((`(,predicate-names . ,names)
|
||||
`(or (tags ,@(--map `(concat "person" ,it) names))
|
||||
`(or (tags ,@(--map (concat "person" it) names))
|
||||
,@(--map `(property "person" ,it) names)))))
|
||||
#+END_SRC
|
||||
|
||||
Let's make sure it works:
|
||||
Let's make sure it normalizes correctly:
|
||||
|
||||
#+BEGIN_SRC elisp :results code :exports both :cache yes
|
||||
(org-ql--normalize-query '(person "Alice" "Bob"))
|
||||
#+END_SRC
|
||||
|
||||
#+RESULTS[ebc46fff31b72359353dda539a26c95b7d650df2]:
|
||||
#+BEGIN_SRC elisp
|
||||
(or (tags "personAlice" "personBob")
|
||||
(property "person" "Alice")
|
||||
(property "person" "Bob"))
|
||||
#+END_SRC
|
||||
|
||||
It does, so the query also produces the correct results:
|
||||
|
||||
#+BEGIN_SRC elisp :results list :exports both :cache yes
|
||||
(org-ql-query :select '(org-get-heading :no-tags)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue