Refactor common spec as Property

This commit is contained in:
bom 2023-07-06 14:37:49 +02:00
parent 2b39da557c
commit 1931365e1c

View file

@ -46,35 +46,25 @@
(s/def ::attributedTo (s/or :object ::Object :link ::Link)) (s/def ::attributedTo (s/or :object ::Object :link ::Link))
(s/def ::actor ::attributedTo) (s/def ::actor ::attributedTo)
(s/def ::Property (s/or :object ::Object
:link ::Link
:objects (s/coll-of ::Object)
:links (s/coll-of ::Link)))
(s/def ::object (s/def ::object
(s/or :object ::Object ::Property)
:link ::Link
:objects (s/coll-of ::Object)
:links (s/coll-of ::Link)))
(s/def ::result (s/def ::result
(s/or :object ::Object ::Property)
:link ::Link
:objects (s/coll-of ::Object)
:links (s/coll-of ::Link)))
(s/def ::target (s/def ::target
(s/or :object ::Object ::Property)
:link ::Link
:objects (s/coll-of ::Object)
:links (s/coll-of ::Link)))
(s/def ::origin (s/def ::origin
(s/or :object ::Object ::Property)
:link ::Link
:objects (s/coll-of ::Object)
:links (s/coll-of ::Link)))
(s/def ::instrument (s/def ::instrument
(s/or :object ::Object ::Property)
:link ::Link
:objects (s/coll-of ::Object)
:links (s/coll-of ::Link)))
(s/def ::verb core/uri-string?) (s/def ::verb core/uri-string?)