mirror of
https://github.com/penpot/penpot.git
synced 2025-01-23 23:18:48 -05:00
Merge pull request #2621 from penpot/superalex-fix-develop
🐛 Fix develop branch
This commit is contained in:
commit
1b8e4dfdfa
3 changed files with 6 additions and 5 deletions
|
@ -1609,11 +1609,12 @@
|
|||
:width width
|
||||
:height height
|
||||
:grow-type (if (> (count text) 100) :auto-height :auto-width)
|
||||
:content (as-content text)}]
|
||||
:content (as-content text)}
|
||||
undo-id (uuid/next)]
|
||||
|
||||
(rx/of (dwu/start-undo-transaction)
|
||||
(rx/of (dwu/start-undo-transaction undo-id)
|
||||
(dwsh/create-and-add-shape :text x y shape)
|
||||
(dwu/commit-undo-transaction))))))
|
||||
(dwu/commit-undo-transaction undo-id))))))
|
||||
|
||||
;; TODO: why not implement it in terms of upload-media-workspace?
|
||||
(defn- paste-svg
|
||||
|
|
|
@ -249,7 +249,7 @@
|
|||
process-svg
|
||||
(fn [svg-data]
|
||||
(let [[shape children]
|
||||
(svg/create-svg-shapes svg-data pos objects uuid/zero #{} false)]
|
||||
(svg/create-svg-shapes svg-data pos objects uuid/zero nil #{} false)]
|
||||
[shape children]))]
|
||||
|
||||
(->> (upload-images svg-data)
|
||||
|
|
|
@ -559,7 +559,7 @@
|
|||
page-selected (wsh/lookup-selected state)
|
||||
base (cph/get-base-shape page-objects page-selected)
|
||||
parent-id (:parent-id base)
|
||||
|
||||
|
||||
[new-shape new-children]
|
||||
(create-svg-shapes svg-data position objects frame-id parent-id selected true)
|
||||
changes (-> (pcb/empty-changes it page-id)
|
||||
|
|
Loading…
Add table
Reference in a new issue