Add validation for shapes.

frontend/uxbox/data/workspace.cljs

@@ -91,11 +91,10 @@
     (-apply-update [_ state]
       (assoc-in state [:workspace :selected] #{}))))
 
-;; TODO: validate shape
-
 (defn add-shape
   "Mark a shape selected for drawing in the canvas."
   [shape props]
+  (sc/validate! +shape-schema+ shape)
   (sc/validate! +shape-props-schema+ props)
   (reify
     rs/UpdateEvent

frontend/uxbox/schema.cljs

@@ -1,7 +1,8 @@
 (ns uxbox.schema
-  (:refer-clojure :exclude [keyword uuid])
+  (:refer-clojure :exclude [keyword uuid vector])
   (:require [bouncer.core :as b]
-            [bouncer.validators :as v]))
+            [bouncer.validators :as v]
+            [uxbox.shapes :refer (shape?)]))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Validators