Clojure seq of maps -> csv

to-csv.clj

(defn write-csv [writer row-data]
  (let [columns (->>
                  row-data
                  first
                  (into (sorted-map))
                  keys)
        headers (map name columns)
        rows    (->> row-data
                  (map (comp vals #(into (sorted-map) %))))]
    (csv/write-csv writer (lazy-seq (cons headers rows)))))