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

fix the tests - transormation description in progress

Browse source
This commit is contained in:
Michael Jerger 2023-07-28 13:31:48 +02:00
parent 3e84e78c15
commit 572d42f6ea
1 changed files with 17 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
src/main/cljc/org/domaindrivenarchitecture/activity_pub_poc/activitystreams2.cljc
View file

@ -50,24 +50,33 @@
(s/and (s/and
::owl/ObjectProperty ::owl/ObjectProperty
::Class ::Class
(s/or ::Object ::Object
::Link))) ::Link))
;http://www.w3.org/ns/activitystreams#object ;http://www.w3.org/ns/activitystreams#object
(s/def ::Object (defmulti object-type map?)
(s/keys :opt-un [::id ::Class])) (defmethod object-type true [_]
(s/and ::Class
(s/keys :opt-un [::id])))
(defmethod object-type false [_]
(s/and ::Class))
(s/def ::Object object-type)
;http://www.w3.org/ns/activitystreams#Link ;http://www.w3.org/ns/activitystreams#Link
;TODO: definition in progress ;TODO: definition in progress
(s/def ::Link (s/keys :opt-un [::id])) (defmulti link-type map?)
(defmethod link-type true [_]
(s/and ::Class
(s/keys :opt-un [::id])))
(defmethod link-type false [_]
(s/and ::Class))
(s/def ::Link link-type)
;TODO: There is no as:Class! Why do we need this? ;TODO: There is no as:Class! Why do we need this?
;Answer jem: I do not want to enhance owl/Class inline from here. ;Answer jem: I do not want to enhance owl/Class inline from here.
(s/def (s/def
::Class ::Class
(s/and ::owl/Class (s/and ::owl/Class))
))
;(s/keys :opt-un [::id ::object])))
;http://www.w3.org/ns/activitystreams#Like ;http://www.w3.org/ns/activitystreams#Like