easy-xml

pepijndevos · Nov 23, 2011 · 091cc7d · 091cc7d
1 parent 5abdfad
commit 091cc7d
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/armagedom.clj b/src/armagedom.clj
@@ -98,3 +98,14 @@
   "Return document as string"
   [document]
   (with-out-str (spit-xml *out* document)))
+
+(defn map-syntax [m]
+  (for [[k v] m]
+    (cons k
+      (cond
+        (map? v) (map-syntax v)
+        (coll? v) (mapcat map-syntax v)
+        :else [v]))))
+
+(defn easy-xml [root uri m]
+  (apply xml root uri [] (map-syntax m)))