Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-13 00:01:51 -05:00
Code Issues Activity

✨ Send profile zoom and vport/vbox on presence notifications

Browse source
This commit is contained in:
Andrey Antukh 2024-06-06 11:08:22 +02:00 • committed by Alonso Torres
parent ccd687cbf3
commit c8130e9453
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -109,9 +109,15 @@
ptk/WatchEvent
(watch [_ state _]
(let [page-id (:current-page-id state)
local (:workspace-local state)
message {:type :pointer-update
:file-id file-id
:page-id page-id
:zoom (:zoom local)
:zoom-inverse (:zoom-inverse local)
:vbox (:vbox local)
:vport (:vport local)
:position point}]
(rx/of (dws/send message))))))
@ -173,13 +179,17 @@
(update state :workspace-presence update-presence))))))
(defn handle-pointer-update
[{:keys [page-id session-id position] :as msg}]
[{:keys [page-id session-id position zoom zoom-inverse vbox vport] :as msg}]
(ptk/reify ::handle-pointer-update
ptk/UpdateEvent
(update [_ state]
(update-in state [:workspace-presence session-id]
(fn [session]
(assoc session
:zoom zoom
:zoom-inverse zoom-inverse
:vbox vbox
:vport vport
:point position
:updated-at (dt/now)
:page-id page-id))))))