Add support for React.Fragment

src/main/om/dom.cljc

@@ -633,3 +633,16 @@
                 :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))))

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)))

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\"/>"))