                     :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

    (watch [_ state stream]
      (let [local (:workspace-local state)]
        (when (= (:page-id local) page-id)
          (prn "handle-page-snapshot" msg)
          (rx/of (shapes-changes-commited msg)))))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

(defn handle-who
