From 07e08c1da90fad26174ae4c45dc7739b3bd7dbf4 Mon Sep 17 00:00:00 2001
From: FieryCod <kwcharllie379@gmail.com>
Date: Sat, 9 Feb 2019 22:24:10 +0100
Subject: [PATCH 1/2] Add support for React.Fragment

---
 src/main/om/dom.cljc | 11 +++++++++++
 src/main/om/dom.cljs |  7 +++++++
 2 files changed, 18 insertions(+)

diff --git a/src/main/om/dom.cljc b/src/main/om/dom.cljc
index 56619c18..1078b7bd 100644
--- a/src/main/om/dom.cljc
+++ b/src/main/om/dom.cljc
@@ -633,3 +633,14 @@
                 :attrs (dissoc opts :ref :key)
                 :react-key (:key opts)
                 :children children}))))
+
+#?(:clj
+    (defn- is-element? [e]
+      (or
+       (satisfies? p/IReactComponent e)
+       (satisfies? p/IReactDOMElement e))))
+
+#?(:clj
+   (defn <> [& args]
+     (let [children (if (is-element? (first args)) args (rest args))]
+       (vec children))))
diff --git a/src/main/om/dom.cljs b/src/main/om/dom.cljs
index 9de949d0..cfbd8d62 100644
--- a/src/main/om/dom.cljs
+++ b/src/main/om/dom.cljs
@@ -95,3 +95,10 @@
    (js/React.createElement tag opts))
   ([tag opts & children]
    (js/React.createElement tag opts children)))
+
+(defn <>
+  "Create a `React.Fragment` with either child or children using `React.createElement`"
+  ([opts child]
+   (<> opts child nil))
+  ([opts child & more]
+   (apply js/React.createElement js/React.Fragment opts child more)))

From ec895bfe114d9acd0770751b4bd0727f2e98541a Mon Sep 17 00:00:00 2001
From: FieryCod <kwcharllie379@gmail.com>
Date: Sat, 9 Feb 2019 23:46:20 +0100
Subject: [PATCH 2/2] Add tests for dom/<>

---
 src/main/om/dom.cljc     | 6 ++++--
 src/test/om/dom_test.clj | 8 ++++++++
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/src/main/om/dom.cljc b/src/main/om/dom.cljc
index 1078b7bd..dc25bdf3 100644
--- a/src/main/om/dom.cljc
+++ b/src/main/om/dom.cljc
@@ -635,12 +635,14 @@
                 :children children}))))
 
 #?(:clj
-    (defn- is-element? [e]
+    (defn- is-element?
+      [e]
       (or
        (satisfies? p/IReactComponent e)
        (satisfies? p/IReactDOMElement e))))
 
 #?(:clj
-   (defn <> [& args]
+   (defn <>
+     [& args]
      (let [children (if (is-element? (first args)) args (rest args))]
        (vec children))))
diff --git a/src/test/om/dom_test.clj b/src/test/om/dom_test.clj
index 214bdd75..d8fb9834 100644
--- a/src/test/om/dom_test.clj
+++ b/src/test/om/dom_test.clj
@@ -506,6 +506,14 @@
                               </div>
                             </div>"))))
 
+(deftest render-react-fragment
+  (is (= (str (#'dom/render-to-str*
+               (dom/div #js {}
+                (dom/<> #js {}
+                        (dom/input #js {:value "foo" :id "bar" :type "text"})
+                        (dom/input #js {:value "foo" :id "bar" :type "text"})))))
+         "<div data-reactroot=\"\" data-reactid=\"1\"><input type=\"text\" value=\"foo\" id=\"bar\" data-reactid=\"2\"/><input type=\"text\" value=\"foo\" id=\"bar\" data-reactid=\"3\"/></div>")))
+
 (deftest render-wrapped-attrs
   (is (= (str (#'dom/render-to-str* (dom/input #js {:value "foo" :id "bar" :type "text"})))
          "<input type=\"text\" value=\"foo\" id=\"bar\" data-reactroot=\"\" data-reactid=\"1\"/>"))