simon/adl-support
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Added entity-by-name

Browse source
This commit is contained in:
Simon Brooke 2018-10-03 12:58:47 +01:00
parent 7191d6afe1
commit 12cd3a361f
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/adl_support/utils.clj
View file

@ -672,3 +672,14 @@
(empty? rhs) (reverse lhs) (empty? rhs) (reverse lhs)
(some #(= (first rhs) %) lhs) (recur lhs (rest rhs)) (some #(= (first rhs) %) lhs) (recur lhs (rest rhs))
true (recur (cons (first rhs) lhs) (rest rhs))))) true (recur (cons (first rhs) lhs) (rest rhs)))))
(defmacro entity-by-name
"Return the entity with this `entity-name` in this `application`.
TODO: Candidate for move to adl-support.utils."
[entity-name application]
`(child-with-tag
~application
:entity
#(= (:name (:attrs %)) ~entity-name)))