From 938f4f5bfd7be23d0ac39d5f54c280e7ba429c20 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Sat, 9 Jul 2016 16:37:24 +0300
Subject: [PATCH] Adapt previous component function to work with latest rum
 version.

---
 src/uxbox/util/mixins.cljs | 49 +++++++++++---------------------------
 1 file changed, 14 insertions(+), 35 deletions(-)

diff --git a/src/uxbox/util/mixins.cljs b/src/uxbox/util/mixins.cljs
index 8fe84e4d7..495de7c85 100644
--- a/src/uxbox/util/mixins.cljs
+++ b/src/uxbox/util/mixins.cljs
@@ -5,42 +5,21 @@
             [lentes.core :as l]
             [goog.dom.forms :as gforms]))
 
+(extend-type cljs.core.UUID
+  INamed
+  (-name [this] (str this))
+  (-namespace [_] ""))
+
 (defn component
-  [spec]
-  (let [name (or (:name spec)
-                 (str (gensym "rum-")))
-        mixins (or (:mixins spec)
-                   [])
-        spec (merge (dissoc spec :name :mixins)
-                    (when-let [rfn (:render spec)]
-                      {:render (fn [state]
-                                 [(apply rfn state (:rum/props state)) state])}))
-        cls (rum/build-class (conj mixins spec) name)
-        ctr (fn self
-              ([] (self {}))
-              ([& props]
-               (let [state {:rum/props props}]
-                 (rum/element cls state nil))))]
-    (with-meta ctr {:rum/class cls})))
-
-(defn ref-html
-  [own ref]
-  (let [component (-> own :rum/react-component)
-        node (aget (.-refs component) ref)]
-    (.-innerHTML node)))
-
-(defn ref-value
-  [own ref]
-  (let [component (-> own :rum/react-component)
-        ref-node (aget (.-refs component) ref)
-        dom-node  (.findDOMNode js/ReactDOM ref-node)]
-    (.-value dom-node)))
-
-(defn get-ref-dom
-  [own ref]
-  (let [component (-> own :rum/react-component)
-        ref-node (aget (.-refs component) ref)]
-    (.findDOMNode js/ReactDOM ref-node)))
+  [{:keys [render] :as spec}]
+  {:pre [(ifn? render)]}
+  (let [name (or (:name spec) (str (gensym "rum-")))
+        mixins (or (:mixins spec) [])
+        spec (dissoc spec :name :mixins :render)
+        render' (fn [state]
+                  [(apply render state (:rum/args state)) state])
+        mixins (conj mixins spec)]
+    (rum/build-ctor render' mixins name)))
 
 (defn concat
   [& elements]