From 527fca4acb096e99272d97ac63097049d9da7a88 Mon Sep 17 00:00:00 2001
From: gered <gered@blarg.ca>
Date: Sat, 18 Jun 2016 10:05:49 -0400
Subject: [PATCH] add some utility components

---
 src/webtools/reagent/components.cljs | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 src/webtools/reagent/components.cljs

diff --git a/src/webtools/reagent/components.cljs b/src/webtools/reagent/components.cljs
new file mode 100644
index 0000000..7704e50
--- /dev/null
+++ 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})]))