Add Sequence Schemas to JSON Schema generation

Author: NoahTheDuke

src/malli/json_schema.cljc

@@ -124,6 +124,36 @@
    :minItems
    :maxItems))
 
+(defmethod accept :* [_ _ children _]
+  {:type "array", :items (first children)})
+
+(defmethod accept :? [_ _ children _]
+  {:type "array", :items (first children),
+   :maxItems 1})
+
+(defmethod accept :+ [_ _ children _]
+  {:type "array", :items (first children),
+   :minItems 1})
+
+(defmethod accept :repeat [_ schema children _]
+  (minmax-properties
+   {:type "array", :items (first children)}
+   schema
+   :minItems
+   :maxItems))
+
+(defmethod accept :cat [_ _ children _]
+  {:type "array", :items children, :additionalItems false})
+
+(defmethod accept :catn [_ _ children _]
+  {:type "array", :items (mapv last children), :additionalItems false})
+
+(defmethod accept :alt [_ _ children _]
+  {:type "array", :items {:oneOf children}, :additionalItems false})
+
+(defmethod accept :altn [_ _ children _]
+  {:type "array", :items {:oneOf (mapv last children)}, :additionalItems false})
+
 (defmethod accept :set [_ schema children _]
   (minmax-properties
    {:type "array", :items (first children), :uniqueItems true}

test/malli/json_schema_test.cljc

@@ -51,6 +51,41 @@
                                :additionalProperties {:type "string"}}]
    [[:vector string?] {:type "array", :items {:type "string"}}]
    [[:sequential string?] {:type "array", :items {:type "string"}}]
+   [[:sequential {:min 1, :max 4} string?] {:type "array",
+                                            :items {:type "string"},
+                                            :minItems 1,
+                                            :maxItems 4}]
+   [[:* string?] {:type "array", :items {:type "string"}}]
+   [[:? string?] {:type "array",
+                  :items {:type "string"},
+                  :maxItems 1}]
+   [[:+ string?] {:type "array",
+                  :items {:type "string"},
+                  :minItems 1}]
+   [[:repeat string?] {:type "array", :items {:type "string"}}]
+   [[:repeat {:min 1, :max 4} string?] {:type "array",
+                                        :items {:type "string"},
+                                        :minItems 1,
+                                        :maxItems 4}]
+   [[:repeat {:min 1, :max 4} [:tuple string? keyword?]] {:type "array",
+                                                          :items {:additionalItems false,
+                                                                  :items [{:type "string"},
+                                                                          {:type "string"}],
+                                                                  :type "array"}
+                                                          :minItems 1,
+                                                          :maxItems 4}]
+   [[:cat :int :string] {:type "array",
+                         :items [{:type "integer"} {:type "string"}],
+                         :additionalItems false}]
+   [[:catn [:f :int] [:s :string]] {:type "array",
+                                    :items [{:type "integer"} {:type "string"}],
+                                    :additionalItems false}]
+   [[:alt :int :string] {:type "array",
+                         :items {:oneOf [{:type "integer"} {:type "string"}]},
+                         :additionalItems false}]
+   [[:altn [:f :int] [:s :string]] {:type "array",
+                                    :items {:oneOf [{:type "integer"} {:type "string"}]},
+                                    :additionalItems false}]
    [[:set string?] {:type "array"
                     :items {:type "string"}
                     :uniqueItems true}]