mirror of
https://github.com/penpot/penpot.git
synced 2026-02-28 15:24:15 +00:00
🐛 Fix develop branch
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user