 (ns polismath.conv-man
   (:require [polismath.named-matrix :as nm]
             [polismath.conversation :as conv]
+            [polismath.clusters :as clust]
             [polismath.metrics :as met]
             [polismath.db :as db]
             [polismath.utils :refer :all]

        :zid
        :user-vote-counts
        :votes-base
        :group-votes}))))


(defn format-for-mongo

   :lastVoteTimestamp (:last-vote-timestamp results)})


(defn prep-main
  "Prep function for passing to format-for-mongo and on the main polismath collection."
  [results]
  (-> results
      ; REFORMAT BASE CLUSTERS
      (update-in [:base-clusters] clust/fold-clusters)
      ; Whitelist of keys to be included in sent data; removes intermediates
      (assoc :lastVoteTimestamp (:last-vote-timestamp results))
      (assoc :lastModTimestamp (:last-mod-timestamp results))
