Use toggle function

This commit is contained in:
Florian Schroedl
2024-07-02 08:22:27 +02:00
parent 5cef23267c
commit f2358b9827
5 changed files with 50 additions and 11 deletions

View File

@@ -11,7 +11,7 @@
(= (get applied-tokens attr) id))
token-attributes)))
(defn tokens-applied?
(defn shapes-token-applied?
"Test if `token` is applied to to any of `shapes` with the given `token-attributes`."
[token shapes token-attributes]
(some #(token-applied? token % token-attributes) shapes))