Add predicate for all test

This commit is contained in:
Florian Schroedl 2024-07-08 11:06:57 +02:00
parent 62ecee2cf8
commit e75f9a7c7f
2 changed files with 6 additions and 0 deletions

View file

@ -59,6 +59,11 @@
acc applied-attrs))))
{} shapes))
(defn group-shapes-by-all-applied-all? [grouped-shapes]
(and (seq (:all grouped-shapes))
(empty? (:other grouped-shapes))
(empty? (:some grouped-shapes))))
(defn token-name->path
"Splits token-name into a path vector split by `.` characters.