 
 (defn shapes-changes-commited
   [{:keys [page-id version operations] :as params}]
-  (prn "shapes-changes-commited" params)
   (s/assert ::shapes-changes-commited params)
   (ptk/reify ::shapes-changes-commited
     ptk/UpdateEvent

        user (if (string? (:color user))
               user
               (assoc user :color color))]
    (prn "assign-user-color" user-id)
    (assoc-in state [:workspace-users :by-id user-id] user)))

(defn handle-who

                    :version (:version page)
                    :operations operations}]
        (->> (rp/mutation :update-project-page params)
             (rx/map shapes-changes-commited))))))

(s/def ::shapes-changes-commited
