From 863c26a056e082b31b18b753a09025849aeccaed Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Wed, 8 Jan 2020 17:05:00 +0100
Subject: [PATCH] :lipstick: Cosmetic changes on text shape component.

---
 frontend/src/uxbox/main/ui/shapes/text.cljs | 42 +++++++--------------
 1 file changed, 13 insertions(+), 29 deletions(-)

diff --git a/frontend/src/uxbox/main/ui/shapes/text.cljs b/frontend/src/uxbox/main/ui/shapes/text.cljs
index 5525a8c91..fe685f808 100644
--- a/frontend/src/uxbox/main/ui/shapes/text.cljs
+++ b/frontend/src/uxbox/main/ui/shapes/text.cljs
@@ -106,35 +106,19 @@
 
 ;; --- Text Shape Edit
 
-(mf/def text-shape-edit
-  :mixins [mf/memo]
-
-  :init
-  (fn [own props]
-    (assoc own ::container (mf/create-ref)))
-
-  :did-mount
-  (fn [own]
-    (let [shape (get-in own [::mf/props :shape])
-          dom (mf/ref-node (::container own))]
-      (set! (.-textContent dom) (:content shape ""))
-      (.focus dom)
-      own))
-
-  :will-unmount
-  (fn [own]
-    (let [dom (mf/ref-val (::container own))
-          shape (get-in own [::mf/props :shape])
-          content (dom/get-value dom)]
-      (st/emit! (udw/update-shape (:id shape) {:content content}))
-      own))
-
-  :render
-  (fn [own {:keys [shape] :as props}]
-    (let [{:keys [id x y content width height]} shape]
-      [:foreignObject {:x x :y y :width width :height height}
-       [:textarea {:style (make-style shape)
-                   :ref (::container own)}]])))
+(mf/defc text-shape-edit
+  [{:keys [shape] :as props}]
+  (let [ref (mf/use-ref)
+        {:keys [id x y width height content]} shape]
+    (mf/use-effect
+     #(fn []
+        (let [content (-> (mf/ref-val ref)
+                          (dom/get-value))]
+          (st/emit! (udw/update-shape id {:content content})))))
+    [:foreignObject {:x x :y y :width width :height height}
+     [:textarea {:style (make-style shape)
+                 :default-value content
+                 :ref ref}]]))
 
 ;; --- Text Shape Wrapper