Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-08 08:09:14 -05:00
Code Issues Activity

Merge pull request #5320 from penpot/alotor-fix-problem-layouts

Browse source 
🐛 Fix problem with layout reflow
This commit is contained in:
Andrey Antukh 2024-11-18 18:44:42 +01:00 • committed by GitHub
commit 4466abd150
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
common/src/app/common/types/modifiers.cljc
View file

@ -529,13 +529,6 @@
(or (d/not-empty? (dm/get-prop modifiers :geometry-child)) (or (d/not-empty? (dm/get-prop modifiers :geometry-child))
(d/not-empty? (dm/get-prop modifiers :structure-child)))) (d/not-empty? (dm/get-prop modifiers :structure-child))))
(defn only-move?
"Returns true if there are only move operations"
[modifiers]
(let [move-op? #(= :move (dm/get-prop % :type))]
(and (every? move-op? (dm/get-prop modifiers :geometry-child))
(every? move-op? (dm/get-prop modifiers :geometry-parent)))))
(defn has-geometry? (defn has-geometry?
[modifiers] [modifiers]
(or (d/not-empty? (dm/get-prop modifiers :geometry-parent)) (or (d/not-empty? (dm/get-prop modifiers :geometry-parent))
@ -550,6 +543,14 @@
[modifiers] [modifiers]
(d/not-empty? (dm/get-prop modifiers :structure-child))) (d/not-empty? (dm/get-prop modifiers :structure-child)))
(defn only-move?
"Returns true if there are only move operations"
[modifiers]
(let [move-op? #(= :move (dm/get-prop % :type))]
(and (not (has-structure? modifiers))
(every? move-op? (dm/get-prop modifiers :geometry-child))
(every? move-op? (dm/get-prop modifiers :geometry-parent)))))
;; Extract subsets of modifiers ;; Extract subsets of modifiers
(defn select-child (defn select-child