         graph (->> (mc/find-maps @db "publications" {:user {$in source-uids}})
              (pmap (comp summary reaction-tree :_id))
              (sort-by :size >)
-             (take 3)
+             (take 4)
              last
              :source
              full-reaction-tree

     (mc/count @db "reactions"))


  (mc/find-maps @db "origins" {:source nil
                               :ts {$gt (t/date-time 2014 8 1)
                                    $lt (t/date-time 2014 9 1)}})

)

          (take 25)
          (map (fn [[k v]] [(:screen_name (mc/find-map-by-id @db "users" k))
                           v])))]))

(defn create-d3-graph
  "Converts zipper into d3 readable format"
