Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-24 15:39:50 -05:00
Code Issues Activity

🐛 Fixes distance alignment

Browse source
This commit is contained in:
alonso.torres 2020-10-02 10:46:41 +02:00 • committed by Hirunatan
parent 3bb4fcb28f
commit 55c92da286
2 changed files with 22 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
frontend/src/app/main/snap.cljs
View file

@ -159,17 +159,18 @@
(defn closest-distance-snap
[page-id shapes objects movev]
(->> (rx/of shapes)
(rx/map #(vector (->> % first :frame-id (get objects))
(-> % gsh/selection-rect (gsh/move movev))))
(rx/merge-map
(fn [[frame selrect]]
(let [areas (->> (gsh/selrect->areas (or (:selrect frame)
(gsh/rect->rect-shape @refs/vbox)) selrect)
(d/mapm #(select-shapes-area page-id shapes objects %2)))
snap-x (search-snap-distance selrect :x (:left areas) (:right areas))
snap-y (search-snap-distance selrect :y (:top areas) (:bottom areas))]
(rx/combine-latest snap->vector snap-y snap-x))))))
(let [frame-id (snap-frame-id shapes)
frame (get objects frame-id)
selrect (->> shapes (map #(gsh/move % movev)) gsh/selection-rect)]
(->> (rx/of (vector frame selrect))
(rx/merge-map
(fn [[frame selrect]]
(let [areas (->> (gsh/selrect->areas (or (:selrect frame)
(gsh/rect->rect-shape @refs/vbox)) selrect)
(d/mapm #(select-shapes-area page-id shapes objects %2)))
snap-x (search-snap-distance selrect :x (:left areas) (:right areas))
snap-y (search-snap-distance selrect :y (:top areas) (:bottom areas))]
(rx/combine-latest snap->vector snap-y snap-x)))))))
(defn closest-snap-point
[page-id shapes layout point]

15
frontend/src/app/main/ui/workspace/snap_distances.cljs
View file

@ -176,7 +176,7 @@
check-in-set
(fn [value number-set]
(->> number-set
(some #(<= (mth/abs (- value %)) 0.5))))
(some #(<= (mth/abs (- value %)) 1))))
;; Left/Top shapes and right/bottom shapes (depends on `coord` parameter
[lt-shapes gt-shapes] @to-measure
@ -185,7 +185,6 @@
lt-distances (->> lt-shapes (map distance-to-selrect) (filter pos?) (into #{}))
gt-distances (->> gt-shapes (map distance-to-selrect) (filter pos?) (into #{}))
;; We'll show the distances that match a distance from the selrect
show-candidate? #(check-in-set % (set/union lt-distances gt-distances))
@ -193,11 +192,17 @@
distance-coincidences (concat (get-shapes-match show-candidate? lt-shapes)
(get-shapes-match show-candidate? gt-shapes))
;; Show the distances that either match one of the distances from the selrect
;; or are from the selrect and go to a shape on the left and to the right
show-distance? #(check-in-set % (into #{} (concat
(map first distance-coincidences)
(set/intersection lt-distances gt-distances))))
show-distance?
(fn [dist]
(let [distances-to-show
(->> (d/concat (mapv first distance-coincidences)
(filterv #(check-in-set % lt-distances) gt-distances)
(filterv #(check-in-set % gt-distances) lt-distances))
(into #{}))]
(check-in-set dist distances-to-show)))
;; These are the segments whose distance will be displayed