         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

          (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"

     (mc/count @db "reactions"))


  ;; asdasd

  (mc/count @db "origins" {:source nil
                               :ts time-interval })

  (->> (mc/count @db "tweets" {:created_at time-interval
                               :user.screen_name {$nin news-accounts}
                               :retweeted_status.id_str nil
                               :in_reply_to_status_id_str nil})
       aprint
       time)

)
