3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-20 01:47:48 +02:00
Code Issues Projects Releases Packages Wiki Activity

🐛 Fix problem with multiple users and texts positions

Browse source
This commit is contained in:
alonso.torres 2022-05-24 22:49:56 +02:00
parent 8a6f01404c
commit 35681c3af8
1 changed files with 16 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

19
frontend/src/app/main/data/workspace/notifications.cljs
View file

@ -195,13 +195,26 @@
(ptk/reify ::handle-file-change (ptk/reify ::handle-file-change
ptk/WatchEvent ptk/WatchEvent
(watch [_ _ _] (watch [_ _ _]
(let [changes-by-pages (group-by :page-id changes) (let [position-data-operation?
(fn [{:keys [type attr]}]
(and (= :set type) (= attr :position-data)))
remove-update-position-data
(fn [change]
(cond-> change
(= :mod-obj (:type change))
(update :operations #(filterv (comp not position-data-operation?) %))))
process-page-changes process-page-changes
(fn [[page-id changes]] (fn [[page-id changes]]
(dch/update-indices page-id changes))] (dch/update-indices page-id changes))
;; We remove `position-data` from the incomming message
changes (->> changes (mapv remove-update-position-data))
changes-by-pages (group-by :page-id changes)]
(rx/merge (rx/merge
(rx/of (dwp/shapes-changes-persisted file-id msg)) (rx/of (dwp/shapes-changes-persisted file-id (assoc msg :changes changes)))
(when-not (empty? changes-by-pages) (when-not (empty? changes-by-pages)
(rx/from (map process-page-changes changes-by-pages)))))))) (rx/from (map process-page-changes changes-by-pages))))))))