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

✨ More work on viewpoer sizing handling.

Browse source
This commit is contained in:
Andrey Antukh 2020-05-11 08:06:41 +02:00 • committed by Alonso Torres
parent 1af87b9140
commit 22975f4f7d
14 changed files with 295 additions and 360 deletions
Download patch file Download diff file Expand all files Collapse all files

37
common/uxbox/common/pages.cljc
View file

@ -5,7 +5,7 @@
;; This Source Code Form is "Incompatible With Secondary Licenses", as
;; defined by the Mozilla Public License, v. 2.0.
;;
;; Copyright (c) 2019-2020 Andrey Antukh <niwi@niwi.nz>
;; Copyright (c) 2020 UXBOX Labs SL
(ns uxbox.common.pages
"A common (clj/cljs) functions and specs for pages."
@ -80,22 +80,25 @@
(remove p? after))))
(defn select-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))))))))
([objects] (select-toplevel-shapes objects nil))
([objects {:keys [include-frames?] :or {include-frames? false}}]
(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)
(if include-frames?
(d/concat res [obj] (map lookup (:shapes obj)))
(d/concat res (map lookup (:shapes obj))))
(conj res obj)))))))))
(defn select-frames
[objects]