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

♻️ Move data.helpers to uxbox.common.pages ns.

Browse source
This commit is contained in:
Andrey Antukh 2020-05-05 15:02:29 +02:00 • committed by Alonso Torres
parent 85d7617143
commit 49023117c3
11 changed files with 139 additions and 207 deletions
Download patch file Download diff file Expand all files Collapse all files

39
frontend/src/uxbox/main/data/workspace/common.cljs
View file

@ -176,41 +176,6 @@
;; --- Common Helpers & Events
(defn retrieve-toplevel-shapes
[objects]
(let [lookup #(get objects %)
root (lookup uuid/zero)
childs (:shapes root)]
(loop [id (first childs)
ids (rest childs)
res []]
(if (nil? id)
res
(let [obj (lookup id)
typ (:type obj)]
(recur (first ids)
(rest ids)
(if (= :frame typ)
(into res (map lookup) (:shapes obj))
(conj res obj))))))))
(defn retrieve-frames
[objects]
(let [root (get objects uuid/zero)
loopfn (fn loopfn [ids]
(let [obj (get objects (first ids))]
(cond
(nil? obj)
nil
(= :frame (:type obj))
(lazy-seq (cons obj (loopfn (rest ids))))
:else
(lazy-seq (loopfn (rest ids))))))]
(loopfn (:shapes root))))
(defn- calculate-frame-overlap
[frames shape]
(let [shape (geom/shape->rect-shape shape)
@ -251,8 +216,8 @@
(let [page-id (get-in state [:workspace-page :id])
objects (get-in state [:workspace-data page-id :objects])
shapes (retrieve-toplevel-shapes objects)
frames (retrieve-frames objects)
shapes (cp/select-toplevel-shapes objects)
frames (cp/select-frames objects)
[rch uch] (calculate-shape-to-frame-relationship-changes frames shapes)]
(when-not (empty? rch)