3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-07 14:38:33 +02:00
Code Issues Projects Releases Packages Wiki Activity

🐛 Fixed alignment of layers with children

Browse source
This commit is contained in:
Andrés Moya 2022-02-21 13:17:46 +01:00 • committed by Andrey Antukh
parent 7cf27ac86d
commit 46bfb2aacd
2 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

3
CHANGES.md
View file

@ -37,8 +37,7 @@
- Fixed components get "dirty" marker when moved [Taiga #2764](https://tree.taiga.io/project/penpot/issue/2764) - Fixed components get "dirty" marker when moved [Taiga #2764](https://tree.taiga.io/project/penpot/issue/2764)
- Fixed cannot align objects in a group that is not part of a frame [Taiga #2762](https://tree.taiga.io/project/penpot/issue/2762) - Fixed cannot align objects in a group that is not part of a frame [Taiga #2762](https://tree.taiga.io/project/penpot/issue/2762)
- Fix problem with double click on exit path editing [Taiga #2906](https://tree.taiga.io/project/penpot/issue/2906) - Fix problem with double click on exit path editing [Taiga #2906](https://tree.taiga.io/project/penpot/issue/2906)
- Fixed alignment of layers with children [Taiga #2862](https://tree.taiga.io/project/penpot/issue/2862)
### :arrow_up: Deps updates
### :heart: Community contributions by (Thank you!) ### :heart: Community contributions by (Thank you!)

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

@ -6,7 +6,6 @@
(ns app.common.geom.align (ns app.common.geom.align
(:require (:require
[app.common.data :as d]
[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]]
[clojure.spec.alpha :as s])) [clojure.spec.alpha :as s]))
@ -20,8 +19,7 @@
(defn- recursive-move (defn- recursive-move
"Move the shape and all its recursive children." "Move the shape and all its recursive children."
[shape dpoint objects] [shape dpoint objects]
(->> (get-children (:id shape) objects) (->> (get-children objects (:id shape))
(map (d/getf objects))
(cons shape) (cons shape)
(map #(gsh/move % dpoint)))) (map #(gsh/move % dpoint))))