 ;; cid, author, aggrees, disagrees, mod, text
 
 
+(defn datetime [timestamp]
+  (str (java.util.Date. timestamp)))
+
+
 (defn full-path [darwin filename]
   (str (or (-> darwin :config :export :temp-dir) "/tmp/")
        filename))

      (update-in [:stats-history]
                 (partial scsv/vectorize {:header [:n-votes :n-comments :n-visitors :n-voters :n-commenters]}))
      (update-in [:votes]
                 (partial scsv/vectorize {:header [:created :tid :pid :vote]
                                          :format-header {:created   "timestamp"
                                                          :tid       "comment-id"
                                                          :pid       "voter-id"
                                                          :vote      "vote"}}))
      (update-in [:comments]
                 (partial scsv/vectorize {:header [:created :tid :pid :aggrees :disagrees :mod :txt]
                                          :format-header {:created   "timestamp"
                                                          :tid       "comment-id"
                                                          :pid       "author-id"
                                                          :aggrees   "agrees"

(comment
  (require '[polismath.runner :as runner])
  (def darwin (:darwin runner/system))
  runner/system
  (export-conversation runner/system
                       {;;:zid 310273
                        :zinvite "7scufp"
                        :format :csv
                        :filename "cljwebdev.zip"
