0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-25 07:58:49 -05:00

🐛 Improvements over snap distances

This commit is contained in:
alonso.torres 2020-06-04 08:38:17 +02:00
parent 636e66943b
commit 07ba79a64c
2 changed files with 3 additions and 5 deletions

View file

@ -21,7 +21,7 @@
[uxbox.util.geom.snap-points :as sp]))
(def ^:private snap-accuracy 5)
(def ^:private snap-distance-accuracy 5)
(def ^:private snap-distance-accuracy 10)
(defn- remove-from-snap-points [remove-id?]
(fn [query-result]
@ -145,9 +145,7 @@
(filter #(<= (mth/abs %) snap-distance-accuracy))
(reduce min ##Inf))]
(if (mth/finite? min-snap) [0 min-snap] nil))
)))))
(if (mth/finite? min-snap) [0 min-snap] nil)))))))
(defn select-shapes-area [page-id shapes objects area-selrect]
(->> (uw/ask! {:cmd :selection/query

View file

@ -110,7 +110,7 @@
pair->distance+pair
(fn [[sh1 sh2]]
[(-> (gsh/distance-shapes sh1 sh2) coord mth/round) [sh1 sh2]])
[(-> (gsh/distance-shapes sh1 sh2) coord (mth/precision 2)) [sh1 sh2]])
contains-selected?
(fn [selected pairs]