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

Allow sequences in Object/Link properties

Browse source
This commit is contained in:
bom 2023-07-06 14:15:36 +02:00
parent 95214d3029
commit 2b39da557c
1 changed files with 39 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

61
src/main/clj/org/domaindrivenarchitecture/activity_pub_poc/activitystreams2.clj
View file

@ -4,20 +4,20 @@
; TODO: We could do these with multispec, but that is too much for a POC
(def objectAndLinkTypes #{; Object Types
"Article"
"Audio"
"Document"
"Event"
"Image"
"Note"
"Page"
"Place"
"Profile"
"Relationship"
"Tombstone"
"Video"
"Article"
"Audio"
"Document"
"Event"
"Image"
"Note"
"Page"
"Place"
"Profile"
"Relationship"
"Tombstone"
"Video"
; Link Types
"Mention"})
"Mention"})
(s/def ::Object (s/or
:uri core/uri-string?
@ -46,20 +46,37 @@
(s/def ::attributedTo (s/or :object ::Object :link ::Link))
(s/def ::actor ::attributedTo)
; TODO: Allow sequences
(s/def ::object (s/or :object ::Object :link ::Link))
(s/def ::object
(s/or :object ::Object
:link ::Link
:objects (s/coll-of ::Object)
:links (s/coll-of ::Link)))
(s/def ::result (s/or :object ::Object :link ::Link))
(s/def ::result
(s/or :object ::Object
:link ::Link
:objects (s/coll-of ::Object)
:links (s/coll-of ::Link)))
(s/def ::target (s/or :object ::Object :link ::Link))
(s/def ::target
(s/or :object ::Object
:link ::Link
:objects (s/coll-of ::Object)
:links (s/coll-of ::Link)))
(s/def ::origin (s/or :object ::Object :link ::Link))
(s/def ::origin
(s/or :object ::Object
:link ::Link
:objects (s/coll-of ::Object)
:links (s/coll-of ::Link)))
(s/def ::instrument (s/or :object ::Object :link ::Link))
(s/def ::instrument
(s/or :object ::Object
:link ::Link
:objects (s/coll-of ::Object)
:links (s/coll-of ::Link)))
(s/def ::verb uri?)
(s/def ::instrument (s/or :object ::Object :link ::Link))
(s/def ::verb core/uri-string?)