mirror of
https://github.com/penpot/penpot.git
synced 2025-06-01 21:41:41 +02:00
42 lines
1.3 KiB
Clojure
42 lines
1.3 KiB
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; Copyright (c) KALEIDOS INC
|
|
|
|
(ns common-tests.helpers.compositions
|
|
(:require
|
|
[common-tests.helpers.files :as thf]))
|
|
|
|
(defn add-rect
|
|
[file rect-label]
|
|
(thf/add-sample-shape file rect-label
|
|
:type :rect
|
|
:name "Rect1"))
|
|
|
|
(defn add-frame
|
|
[file frame-label]
|
|
(thf/add-sample-shape file frame-label
|
|
:type :frame
|
|
:name "Frame1"))
|
|
|
|
(defn add-frame-with-child
|
|
[file frame-label child-label]
|
|
(-> file
|
|
(add-frame frame-label)
|
|
(thf/add-sample-shape child-label
|
|
:type :rect
|
|
:name "Rect1"
|
|
:parent-label frame-label)))
|
|
|
|
(defn add-simple-component
|
|
[file component-label root-label child-label]
|
|
(-> file
|
|
(add-frame-with-child root-label child-label)
|
|
(thf/make-component component-label root-label)))
|
|
|
|
(defn add-simple-component-with-copy
|
|
[file component-label main-root-label main-child-label copy-root-label]
|
|
(-> file
|
|
(add-simple-component component-label main-root-label main-child-label)
|
|
(thf/instantiate-component component-label copy-root-label)))
|