                     :version (:version page)
                     :operations operations}]
         (->> (rp/mutation :update-project-page params)
-             (rx/tap #(prn "KAKAKAKA" %))
              (rx/map shapes-changes-commited))))))
 
 (s/def ::shapes-changes-commited


(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))]
    (assoc-in state [:workspace-users :by-id user-id] user)))

(defn handle-who
