More improvements to validation api.

src/uxbox/data/pages.cljs

@@ -172,15 +172,18 @@
            (rx/catch on-failure)))))
 
 (def ^:private update-page-schema
-  {:name [sc/required sc/string]
+  {:id [sc/required]
+   :project [sc/required]
+   :version [sc/required]
+   :name [sc/required sc/string]
    :width [sc/required sc/integer]
    :height [sc/required sc/integer]
    :layout [sc/required sc/string]})
 
 (defn update-page-metadata
   [data]
-  (-> (sc/validate! data update-page-schema)
+  (-> (sc/validate! data update-page-schema {:strip false})
-      (dissoc :data)
+      (dissoc data :data)
       (map->UpdatePageMetadata)))
 
 ;; --- Delete Page (by id)

src/uxbox/schema.cljs

@@ -70,17 +70,22 @@
    :validate #(shape? %)})
 
 (defn validate
-  [data schema]
+  ([data schema]
-  (let [opts {:strip true
+   (validate data schema nil))
-              :translate tr}]
+  ([data schema opts]
-    (st/validate data schema opts)))
+   (let [opts (merge {:strip true
+                     :translate tr}
+                     opts)]
+     (st/validate data schema opts))))
 
 (defn validate!
-  [data schema]
+  ([data schema]
-  (let [[errors data] (validate data schema)]
+   (validate! data schema nil))
+  ([data schema opts]
+   (let [[errors data] (validate data schema opts)]
      (if errors
        (throw (ex-info "Invalid data" errors))
-      data)))
+       data))))
 
 (defn valid?
   [data schema]