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

Working through getting record creation going

Browse source
This commit is contained in:
Simon Brooke 2018-08-05 14:52:26 +01:00
parent 8fbe32c5c2
commit 8fbeaa55e3
1 changed files with 14 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/adl_support/utils.clj
View file

@ -475,7 +475,7 @@
[property] [property]
(and (and
(= (:tag property) :property) (= (:tag property) :property)
(not (#{"link"} (:type (:attrs property)))) (not (#{"link" "list"} (:type (:attrs property))))
(not (system-generated? property)))) (not (system-generated? property))))
@ -509,6 +509,17 @@
(all-properties ~entity))) (all-properties ~entity)))
(defn required-properties
"Return the properties of this `entity` which are required and are not
system generated."
[entity]
(filter
#(and
(= (:required (:attrs %)) "true")
(not (system-generated? %)))
(descendants-with-tag entity :property)))
(defmacro key-properties (defmacro key-properties
[entity] [entity]
`(children-with-tag (first (children-with-tag ~entity :key)) :property)) `(children-with-tag (first (children-with-tag ~entity :key)) :property))