From c8130e9453eadd6e6c7eb5be7c9e14f4ba10de16 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Thu, 6 Jun 2024 11:08:22 +0200
Subject: [PATCH] :sparkles: Send profile zoom and vport/vbox on presence
 notifications

---
 .../src/app/main/data/workspace/notifications.cljs   | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/frontend/src/app/main/data/workspace/notifications.cljs b/frontend/src/app/main/data/workspace/notifications.cljs
index 39808e7f3..c00cf7d6c 100644
--- a/frontend/src/app/main/data/workspace/notifications.cljs
+++ b/frontend/src/app/main/data/workspace/notifications.cljs
@@ -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))))))