🐛 Fix export in viewer

This commit is contained in:
Alejandro Alonso 2024-01-24 08:40:34 +01:00
parent c7ac3b0163
commit 2091fbca7c

View file

@ -86,27 +86,26 @@
(mf/use-callback (mf/use-callback
(mf/deps shapes) (mf/deps shapes)
(fn [index event] (fn [index event]
(let [target (dom/get-target event) (let [scale (d/parse-double event)]
value (dom/get-value target) (swap! exports assoc-in [index :scale] scale))))
value (d/parse-double value)]
(swap! exports assoc-in [index :scale] value))))
on-suffix-change on-suffix-change
(mf/use-callback (mf/use-callback
(mf/deps shapes) (mf/deps shapes)
(fn [index event] (fn [event]
(let [target (dom/get-target event) (let [value (dom/get-target-val event)
value (dom/get-value target)] index (-> (dom/get-current-target event)
(dom/get-data "value")
(d/parse-integer))]
(swap! exports assoc-in [index :suffix] value)))) (swap! exports assoc-in [index :suffix] value))))
on-type-change on-type-change
(mf/use-callback (mf/use-callback
(mf/deps shapes) (mf/deps shapes)
(fn [index event] (fn [index event]
(let [target (dom/get-target event) (let [type (keyword event)]
value (dom/get-value target) (swap! exports assoc-in [index :type] type))))
value (keyword value)]
(swap! exports assoc-in [index :type] value))))
manage-key-down manage-key-down
(mf/use-callback (mf/use-callback
(fn [event] (fn [event]
@ -177,7 +176,7 @@
:type "text" :type "text"
:value (:suffix export) :value (:suffix export)
:placeholder (tr "workspace.options.export.suffix") :placeholder (tr "workspace.options.export.suffix")
:data-value index :data-value (str index)
:on-change on-suffix-change :on-change on-suffix-change
:on-key-down manage-key-down}]]] :on-key-down manage-key-down}]]]