meissa/activity-pub-poc
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Refactor common spec as Property

Browse source
This commit is contained in:
bom 2023-07-06 14:37:49 +02:00
parent 2b39da557c
commit 1931365e1c
1 changed files with 10 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
src/main/clj/org/domaindrivenarchitecture/activity_pub_poc/activitystreams2.clj
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 ::object (s/def ::Property (s/or :object ::Object
(s/or :object ::Object
:link ::Link :link ::Link
:objects (s/coll-of ::Object) :objects (s/coll-of ::Object)
:links (s/coll-of ::Link))) :links (s/coll-of ::Link)))
(s/def ::object
::Property)
(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?)