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

🐛 Fix text shape impl (unexpected exception on prod build).

Browse source
This commit is contained in:
Andrey Antukh 2020-09-14 12:59:00 +02:00 • committed by Alonso Torres
parent 88763d236a
commit 3a4ef73f06
1 changed files with 39 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

18
frontend/src/app/main/ui/shapes/text.cljs
View file

@ -111,11 +111,12 @@
(p/all))] (p/all))]
(reduce (fn [text [url data]] (str/replace text url data)) font-text url-to-data))) (reduce (fn [text [url data]] (str/replace text url data)) font-text url-to-data)))
(defn- render-text-node (mf/defc text-node
([node] (render-text-node 0 node)) [{:keys [node index] :as props}]
([index {:keys [type text children] :as node}]
(let [embed-resources? (mf/use-ctx muc/embed-ctx) (let [embed-resources? (mf/use-ctx muc/embed-ctx)
embeded-fonts (mf/use-state nil)] embeded-fonts (mf/use-state nil)
{:keys [type text children]} node]
(mf/use-effect (mf/use-effect
(mf/deps node) (mf/deps node)
(fn [] (fn []
@ -125,11 +126,12 @@
(-> (p/all embeded) (-> (p/all embeded)
(p/then (fn [result] (reset! embeded-fonts (str/join "\n" result))))))))) (p/then (fn [result] (reset! embeded-fonts (str/join "\n" result)))))))))
(mf/html
(if (string? text) (if (string? text)
(let [style (generate-text-styles (clj->js node))] (let [style (generate-text-styles (clj->js node))]
[:span {:style style :key index} text]) [:span {:style style :key index} text])
(let [children (map-indexed render-text-node children)] (let [children (map-indexed (fn [index node]
(mf/element text-node {:index index :node node :key index}))
children)]
(case type (case type
"root" "root"
(let [style (generate-root-styles (clj->js node))] (let [style (generate-root-styles (clj->js node))]
@ -151,14 +153,14 @@
(let [style (generate-paragraph-styles (clj->js node))] (let [style (generate-paragraph-styles (clj->js node))]
[:p {:key index :style style} children]) [:p {:key index :style style} children])
nil))))))) nil)))))
(mf/defc text-content (mf/defc text-content
{::mf/wrap-props false {::mf/wrap-props false
::mf/wrap [mf/memo]} ::mf/wrap [mf/memo]}
[props] [props]
(let [root (obj/get props "content")] (let [root (obj/get props "content")]
(render-text-node root))) [:& text-node {:index 0 :node root}]))
(defn- retrieve-colors (defn- retrieve-colors
[shape] [shape]