 (defrecord FetchPageHistory [id since max]
   rs/WatchEvent
   (-apply-watch [this state s]
-    (println "FetchPageHistory" this)
     (letfn [(on-success [{history :payload}]
               (let [history (into [] history)]
                 (->PageHistoryFetched history (not (nil? since)))))

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

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

(defn clean-page-history
