Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-24 23:49:45 -05:00
Code Issues Activity

Do not send page updates when historic item is selected.

Browse source
This commit is contained in:
Andrey Antukh 2016-03-27 18:31:25 +03:00
parent b00420d457
commit 8c64c7c3eb
1 changed files with 14 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/uxbox/ui/workspace.cljs
View file

@ -28,22 +28,32 @@
;; Workspace
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defn focus-page
(defn- focus-page
[id]
(as-> (ul/getter #(stpr/pack-page % id)) $
(l/focus-atom $ st/state)))
(defn on-page-change
;; TODO: move out of UI.
(defn- on-page-change
[buffer]
#_(println "on-page-change" buffer)
(let [page (second buffer)]
(rs/emit! (udp/update-page page))))
(defn subscribe-to-page-changes
(defn- subscribe-to-page-changes
[pageid]
(as-> (focus-page pageid) $
(rx/from-atom $)
(rx/dedupe #(dissoc % :version) $)
(rx/debounce 1000 $)
(rx/scan (fn [acc page]
#_(println "change:" (:version acc) "->" (:version page))
(let [result (if (>= (:version page) (:version acc))
page
acc)]
;; (println "!!!" (:version result))
result)) $)
(rx/dedupe #(dissoc % :version) $)
(rx/buffer 2 1 $)
(rx/subscribe $ on-page-change #(throw %))))