   (reify
     rs/UpdateEvent
     (-apply-update [_ state]
-      (println "toggle-shape-visibility" sid)
       (let [shape (get-in state [:shapes-by-id sid])
             hidden? (:hidden shape false)]
         (if hidden?

             (assoc-in state [:workspace :selected]))))))

(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
    (-apply-update [_ state]
      (let [shape (get-in state [:shapes-by-id sid])
            blocked? (:blocked shape false)]
        (if blocked?
