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

🎉 Transform graphics into components

Browse source
This commit is contained in:
Andrés Moya 2022-10-24 16:17:27 +02:00
parent 8852ed815f
commit 20738545b8
8 changed files with 404 additions and 164 deletions
Download patch file Download diff file Expand all files Collapse all files

18
common/src/app/common/types/shape.cljc
View file

@ -388,12 +388,14 @@
(setup-rect-selrect)))
(defn- setup-image
[{:keys [metadata] :as shape} props]
(-> (setup-rect shape props)
(assoc
:proportion (/ (:width metadata)
(:height metadata))
:proportion-lock true)))
[shape props]
(let [metadata (or (:metadata shape) (:metadata props))]
(-> (setup-rect shape props)
(assoc
:metadata metadata
:proportion (/ (:width metadata)
(:height metadata))
:proportion-lock true))))
(defn setup-shape
"A function that initializes the geometric data of
@ -409,7 +411,9 @@
(defn make-shape
"Make a non group shape, ready to use."
[type geom-props attrs]
(-> (make-minimal-shape type)
(-> (if-not (= type :group)
(make-minimal-shape type)
(make-minimal-group uuid/zero geom-props (:name attrs)))
(setup-shape geom-props)
(merge attrs)))