      (ko/select "participants"
        (ko/fields :zid :pid :vote_count :created)
        (ko/where {:zid zid :created [<= final-timestamp]})))))
+
+(defn get-participation-data
+  [& args]
+  (->> (apply get-participation-data* args)
+       (map (fn [data]
+              (assoc data :datetime (datetime (:created data)))))))
 
 
 (defn get-comments-data


(defn get-conversation-votes
  [darwin & args]
  ;; Flip the signs on the votes XXX (remove when we switch)
  (map #(update-in % [:vote] (partial * -1))
       (apply get-conversation-votes* darwin args)))

(defn get-conversation-data
  "Return a map with :topic and :description keys"

        (ko/where {:zid zid})))
    first))

(defn get-participation-data*
  ([darwin zid]
   (kdb/with-db (db-spec darwin)
     (ko/select "participants"
