 (defrecord CleanPageHistory []
   rs/UpdateEvent
   (-apply-update [_ state]
-    (println "CleanPageHistory")
     (assoc-in state [:workspace :history] {})))
 
 (defn clean-page-history

(defrecord ApplySelectedHistory [id]
  rs/UpdateEvent
  (-apply-update [_ state]
    (println "ApplySelectedHistory" id)
    (-> state
        (update-in [:pages-by-id id] dissoc :history)
        (assoc-in [:workspace :history :selected] nil)))

(defrecord WatchPageChanges []
  rs/WatchEvent
  (-apply-watch [_ state s]
    (let [stoper (->> (rx/filter clean-page-history? s)
                      (rx/take 1))]
      (->> (rx/filter udp/page-synced? s)
