diff --git a/src/main/clj/org/domaindrivenarchitecture/activity_pub_poc/activitystreams2.clj b/src/main/clj/org/domaindrivenarchitecture/activity_pub_poc/activitystreams2.clj index 0565ff5..f76bfa7 100644 --- a/src/main/clj/org/domaindrivenarchitecture/activity_pub_poc/activitystreams2.clj +++ b/src/main/clj/org/domaindrivenarchitecture/activity_pub_poc/activitystreams2.clj @@ -2,11 +2,11 @@ (:require [clojure.spec.alpha :as s])) (s/def ::Object (s/or - :uri any? + :uri any? ; TODO: This should only check for uri :map (s/keys :req-un [::id ::type] ;type darf nicht "Link" sein :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 ::Link (s/keys @@ -26,6 +26,7 @@ (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 ::result (s/or :object ::Object :link ::Link))