Avoid persist page operation on first workspace loading.

src/uxbox/state.cljs

@@ -29,4 +29,6 @@
 (defn init
   "Initialize the state materialization."
   []
-  (rx/to-atom stream state))
+  (as-> stream $
+    (rx/dedupe $)
+    (rx/to-atom $ state)))

src/uxbox/ui/workspace.cljs

@@ -34,8 +34,9 @@
     (l/focus-atom $ st/state)))
 
 (defn on-page-change
-  [page]
-  (rs/emit! (udp/update-page page)))
+  [buffer]
+  (let [page (second buffer)]
+    (rs/emit! (udp/update-page page))))
 
 (defn subscribe-to-page-changes
   [pageid]
@@ -43,6 +44,7 @@
     (rx/from-atom $)
     (rx/dedupe #(dissoc % :version) $)
     (rx/debounce 1000 $)
+    (rx/buffer 2 1 $)
     (rx/subscribe $ on-page-change #(throw %))))
 
 (defn- workspace-will-mount