mirror of
https://github.com/penpot/penpot.git
synced 2025-07-23 17:17:13 +02:00
✨ Add correct impl for is-direct-child-of-root?
helper
And we restore the previously removed helper and incorrectly replaced by the `is-direct-child-of-root?`. In penpot exists two concepts: root and root-frame; root is the artificially created shape that represents the ROOT, and root-frame means a frame that is shape of frame type which is a direct children of ROOT.
This commit is contained in:
parent
1a1e55037b
commit
c6e248b52f
7 changed files with 23 additions and 17 deletions
|
@ -30,7 +30,7 @@
|
|||
(not (ctl/layout-absolute? shape))
|
||||
(or (cph/group-shape? shape)
|
||||
(cph/frame-shape? shape)))
|
||||
(cph/is-direct-child-of-root? shape))
|
||||
(cph/root-frame? shape))
|
||||
:relative
|
||||
|
||||
(and (ctl/any-layout-immediate-child? objects shape)
|
||||
|
@ -54,14 +54,14 @@
|
|||
;;shape (gsh/transform-shape)
|
||||
shape-value (get selrect coord)
|
||||
]
|
||||
(when (and (not (cph/is-direct-child-of-root? shape))
|
||||
(when (and (not (cph/root-frame? shape))
|
||||
(or (not (ctl/any-layout-immediate-child? objects shape))
|
||||
(ctl/layout-absolute? shape)))
|
||||
(- shape-value parent-value))))
|
||||
|
||||
#_(defn get-shape-position
|
||||
[shape objects coord]
|
||||
(when-not (or (cph/is-direct-child-of-root? shape)
|
||||
(when-not (or (cph/root-frame? shape)
|
||||
(and (ctl/any-layout-immediate-child? objects shape)
|
||||
(not (ctl/layout-absolute? shape))))
|
||||
(let [parent (get objects (:parent-id shape))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue