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

Added todos

Browse source
This commit is contained in:
Clemens 2023-06-30 15:27:38 +02:00
parent d18ba9f117
commit 6c0dfea42e
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -2,11 +2,11 @@
(:require [clojure.spec.alpha :as s])) (:require [clojure.spec.alpha :as s]))
(s/def ::Object (s/or (s/def ::Object (s/or
:uri any? :uri any? ; TODO: This should only check for uri
:map (s/keys :map (s/keys
:req-un [::id ::type] ;type darf nicht "Link" sein :req-un [::id ::type] ;type darf nicht "Link" sein
:opt-un [::attributedTo ::und-mehr]))) :opt-un [::attributedTo ::und-mehr])))
(s/def ::id any?) (s/def ::id any?) ; TODO: This should only check for uri
(s/def ::type any?);(fn [s] (s/or (uri? s) (= s "Link")))) (s/def ::type any?);(fn [s] (s/or (uri? s) (= s "Link"))))
(s/def ::Link (s/keys (s/def ::Link (s/keys
@ -26,6 +26,7 @@
(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)
; TODO: Allow sequences
(s/def ::object (s/or :object ::Object :link ::Link)) (s/def ::object (s/or :object ::Object :link ::Link))
(s/def ::result (s/or :object ::Object :link ::Link)) (s/def ::result (s/or :object ::Object :link ::Link))