3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-22 19:16:10 +02:00
Code Issues Projects Releases Packages Wiki Activity

🐛 Fix object alignment issue

Browse source
This commit is contained in:
Andrey Antukh 2023-07-14 14:53:48 +02:00 • committed by Alonso Torres
parent e78edca5a8
commit a3f347c9fd
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
common/src/app/common/geom/align.cljc
View file

@ -6,6 +6,7 @@
(ns app.common.geom.align (ns app.common.geom.align
(:require (:require
[app.common.geom.point :as gpt]
[app.common.geom.rect :as grc] [app.common.geom.rect :as grc]
[app.common.geom.shapes :as gsh] [app.common.geom.shapes :as gsh]
[app.common.pages.helpers :refer [get-children]])) [app.common.pages.helpers :refer [get-children]]))
@ -33,8 +34,8 @@
[shape rect axis objects] [shape rect axis objects]
(let [wrapper-rect (gsh/shapes->rect [shape]) (let [wrapper-rect (gsh/shapes->rect [shape])
align-pos (calc-align-pos wrapper-rect rect axis) align-pos (calc-align-pos wrapper-rect rect axis)
delta {:x (- (:x align-pos) (:x wrapper-rect)) delta (gpt/point (- (:x align-pos) (:x wrapper-rect))
:y (- (:y align-pos) (:y wrapper-rect))}] (- (:y align-pos) (:y wrapper-rect)))]
(recursive-move shape delta objects))) (recursive-move shape delta objects)))
(defn calc-align-pos (defn calc-align-pos