🐛 Fix viewer comment position when zoom applied

CHANGES.md

@@ -23,6 +23,7 @@
 - Add shortcuts to boolean icons popups [Taiga #2220](https://tree.taiga.io/project/penpot/issue/2220)
 - Fix a worker error when transforming a rectangle into path
 - Fix max/min values for opacity fields [Taiga #2183](https://tree.taiga.io/project/penpot/issue/2183)
+- Fix viewer comment position when zoom applied [Taiga #2240](https://tree.taiga.io/project/penpot/issue/2240)
 
 ### :arrow_up: Deps updates
 ### :heart: Community contributions by (Thank you!)

frontend/src/app/main/ui/viewer/comments.cljs

@@ -105,14 +105,15 @@
 
         on-click
         (mf/use-callback
-         (mf/deps cstate frame page file)
+         (mf/deps cstate frame page file zoom)
          (fn [event]
            (dom/stop-propagation event)
            (if (some? (:open cstate))
              (st/emit! (dcm/close-thread))
              (let [event    (.-nativeEvent ^js event)
-                   position (-> (dom/get-offset-position event)
-                                (gpt/transform modifier2))
+                   viewport-point (dom/get-offset-position event)
+                   viewport-point (-> viewport-point (update :x #(/ % zoom)) (update :y #(/ % zoom)))
+                   position (gpt/transform viewport-point modifier2)
                    params   {:position position
                              :page-id (:id page)
                              :file-id (:id file)}]