Refactor common spec as Property
This commit is contained in:
parent
2b39da557c
commit
1931365e1c
1 changed files with 10 additions and 20 deletions
|
@ -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?)
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue