Drop zoom snap (#7774)

*  Remove const `zoom-half-pixel-precision`

* ♻️ Adjust usages
This commit is contained in:
Diana Veiga
2025-11-20 13:28:45 +01:00
committed by GitHub
parent 177bdaa72c
commit 37d5a31589
4 changed files with 6 additions and 23 deletions

View File

@@ -301,6 +301,4 @@
:width 1280
:height 720}])
(def zoom-half-pixel-precision 8)
(def max-input-length 255)

View File

@@ -19,7 +19,6 @@
[app.common.types.shape-tree :as ctst]
[app.common.types.shape.layout :as ctl]
[app.common.uuid :as uuid]
[app.main.constants :refer [zoom-half-pixel-precision]]
[app.main.data.helpers :as dsh]
[app.main.data.workspace.drawing.common :as common]
[app.main.snap :as snap]
@@ -83,8 +82,7 @@
zoom (dm/get-in state [:workspace-local :zoom] 1)
snap-pixel? (contains? layout :snap-pixel-grid)
snap-prec (if (>= zoom zoom-half-pixel-precision) 0.5 1)
initial (cond-> @ms/mouse-position snap-pixel? (gpt/round-step snap-prec))
initial (cond-> @ms/mouse-position snap-pixel? (gpt/round-step 1))
page-id (:current-page-id state)
objects (dsh/lookup-page-objects state page-id)
@@ -133,7 +131,7 @@
(rx/map (partial array/conj current)))))
(rx/map
(fn [[_ shift? mod? point]]
#(update-drawing % initial (cond-> point snap-pixel? (gpt/round-step snap-prec)) shift? mod?))))))
#(update-drawing % initial (cond-> point snap-pixel? (gpt/round-step 1)) shift? mod?))))))
(->> (rx/of (common/handle-finish-drawing))
(rx/delay 100)))))))

View File

@@ -24,7 +24,6 @@
[app.common.types.shape.attrs :refer [editable-attrs]]
[app.common.types.shape.layout :as ctl]
[app.common.uuid :as uuid]
[app.main.constants :refer [zoom-half-pixel-precision]]
[app.main.data.helpers :as dsh]
[app.main.data.workspace.comments :as-alias dwcm]
[app.main.data.workspace.guides :as-alias dwg]
@@ -412,10 +411,7 @@
(dsh/lookup-page-objects state page-id)
snap-pixel?
(and (not ignore-snap-pixel) (contains? (:workspace-layout state) :snap-pixel-grid))
zoom (dm/get-in state [:workspace-local :zoom])
snap-precision (if (>= zoom zoom-half-pixel-precision) 0.5 1)]
(and (not ignore-snap-pixel) (contains? (:workspace-layout state) :snap-pixel-grid))]
(as-> objects $
(apply-text-modifiers $ (get state :workspace-text-modifier))
@@ -423,8 +419,7 @@
(gm/set-objects-modifiers modif-tree $ (merge
params
{:ignore-constraints ignore-constraints
:snap-pixel? snap-pixel?
:snap-precision snap-precision}))))))
:snap-pixel? snap-pixel?}))))))
(defn- calculate-update-modifiers
[old-modif-tree state ignore-constraints ignore-snap-pixel modif-tree]
@@ -434,9 +429,6 @@
snap-pixel?
(and (not ignore-snap-pixel) (contains? (:workspace-layout state) :snap-pixel-grid))
zoom (dm/get-in state [:workspace-local :zoom])
snap-precision (if (>= zoom zoom-half-pixel-precision) 0.5 1)
objects
(-> objects
(apply-text-modifiers (get state :workspace-text-modifier)))]
@@ -446,8 +438,7 @@
modif-tree
objects
{:ignore-constraints ignore-constraints
:snap-pixel? snap-pixel?
:snap-precision snap-precision})))
:snap-pixel? snap-pixel?})))
(defn update-modifiers
([modif-tree]

View File

@@ -9,7 +9,6 @@
[app.common.data.macros :as dm]
[app.common.geom.point :as gpt]
[app.common.types.path.segment :as path.segm]
[app.main.constants :refer [zoom-half-pixel-precision]]
[app.main.data.workspace.path.state :as pst]
[app.main.snap :as snap]
[app.main.store :as st]
@@ -29,16 +28,13 @@
(= (ptk/type event) :app.main.data.workspace.common/clear-edition-mode))
(defn to-pixel-snap [position]
(let [zoom (get-in @st/state [:workspace-local :zoom] 1)
layout (get @st/state :workspace-layout)
(let [layout (get @st/state :workspace-layout)
snap-pixel? (contains? layout :snap-pixel-grid)]
(cond
(or (not snap-pixel?) (not (gpt/point? position)))
position
(>= zoom zoom-half-pixel-precision)
(gpt/round-step position 0.5)
:else
(gpt/round position))))