 
 (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

                    :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)
          (rx/of (shapes-changes-commited msg)))))))

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