Improve compile-hiccup macro

wavejumper · Aug 19, 2020 · c640863 · c640863
1 parent feedcc8
commit c640863
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/rehook-dom/src/rehook/dom.cljc b/rehook-dom/src/rehook/dom.cljc
@@ -76,7 +76,17 @@
 
   ([$ e props child & children]
    (let [children (cons child children)]
-     (apply list $ e props (keep (partial compile-hiccup $) children)))))
+     (apply list $ e props (keep (fn [e]
+                                   (cond
+                                     (vector? e)
+                                     (apply compile-hiccup $ e)
+
+                                     (or (nil? e) (string? e) (number? e))
+                                     e
+
+                                     :else
+                                     `(eval-hiccup ~$ ~e)))
+                                 children)))))
 
 #?(:clj
    (defmacro html [$ component]