add some utility components

2016-06-18 10:05:49 -04:00 · 2016-06-18 10:05:49 -04:00 · 527fca4acb
parent bc47be1f94
commit 527fca4acb
1 changed files with 16 additions and 0 deletions
--- a/src/webtools/reagent/components.cljs
+++ b/src/webtools/reagent/components.cljs
@ -0,0 +1,16 @@
+(ns webtools.reagent.components)
+
+(defn ->keyed-comps
+  [components]
+  (map-indexed
+    (fn [idx comp]
+      (if (vector? comp)
+        (with-meta comp {:key idx})
+        comp))
+    components))
+
+(defn raw-html
+  ([comp html-content]
+   (raw-html comp nil html-content))
+  ([comp props html-content]
+   [comp (assoc props :dangerouslySetInnerHTML {:__html html-content})]))