LRS-30 naive addition of context agents, groups

Author: milt

src/xapi_schema/spec.cljc

@@ -949,6 +949,51 @@
 (s/def :context/extensions
   ::extensions)
 
+;; 2.0.x compat
+
+;; contextAgents
+(s/def :contextAgent/objectType #{"contextAgent"})
+(s/def :contextAgent/agent ::agent)
+(s/def :contextAgent/relevantTypes
+  (s/every ::iri
+           :into []
+           :min-count 1))
+
+(s/def ::context-agent
+  (conform-ns "contextAgent"
+              (s/and
+               (s/keys :req [:contextAgent/objectType
+                             :contextAgent/agent]
+                       :opt [:contextAgent/relevantTypes])
+               (restrict-keys :contextAgent/objectType
+                              :contextAgent/agent
+                              :contextAgent/relevantTypes))))
+(s/def :context/contextAgents
+  (s/every ::context-agent
+           :into []))
+
+;; contextGroups
+
+(s/def :contextGroup/objectType #{"contextGroup"})
+(s/def :contextGroup/group ::group)
+(s/def :contextGroup/relevantTypes
+  (s/every ::iri
+           :into []
+           :min-count 1))
+
+(s/def ::context-group
+  (conform-ns "contextGroup"
+              (s/and
+               (s/keys :req [:contextGroup/objectType
+                             :contextGroup/group]
+                       :opt [:contextGroup/relevantTypes])
+               (restrict-keys :contextGroup/objectType
+                              :contextGroup/group
+                              :contextGroup/relevantTypes))))
+(s/def :context/contextGroups
+  (s/every ::context-group
+           :into []))
+
 (s/def ::context
   (conform-ns "context"
               (s/and
@@ -960,7 +1005,9 @@
                              :context/platform
                              :context/language
                              :context/statement
-                             :context/extensions])
+                             :context/extensions
+                             :context/contextAgents
+                             :context/contextGroups])
                (restrict-keys :context/registration
                               :context/instructor
                               :context/team
@@ -969,7 +1016,9 @@
                               :context/platform
                               :context/language
                               :context/statement
-                              :context/extensions))))
+                              :context/extensions
+                              :context/contextAgents
+                              :context/contextGroups))))
 
 ;; Attachments