     (-> (mix-columns-with-data columns data column->keyword)
         data->edn))
 
+(defn export2xml
+    [columns data]
+    (with-out-str
+        (xml/emit {:tag "jobs" :content
+            (for [item data]
+                {:tag :job-metadata
+                 :attrs   {:name (first item)}
+                 :content
+                     (for [z (zipmap (column->xml-key columns) item)]
+                         {:tag (key z) :content [(str (val z))]}
+                         )})})))
+
 (defn export
     [columns data output-format]
     (case output-format

    (for [column columns]
    (-> (clojure.string/replace column " " "_")
        keyword)))

(defn mix-columns-with-data
    [columns data function]

        :edn   (export2edn columns data)
        :csv   (export2csv columns data)
        :txt   (export2txt columns data)
        :xml   (export2xml columns data)))

