 
 
 (defn get-news-frequencies []
-  (mapv #(vec [% (mc/count (:db @mongo-state) "tweets" {:user.screen_name %})]) (:news-accounts @mongo-state)))
+  (mapv #(vec [% (mc/count (:db @mongo-state) "tweets" {:user.screen_name %
+                                                        :created_at {$gt (t/date-time 2014 7 1)}})]) (:news-accounts @mongo-state)))
 
 
 (defn get-tweet-count []



(defn compute-diffusion [user]
  (->> (mc/count (:db @mongo-state) "tweets" {$or [{"entities.user_mentions.screen_name" user}
                                                   {"retweeted_status.user.screen_name" user}
                                                   {"in_reply_to_screen_name" user}]})))


(defn get-news-diffusion []

      (:db @mongo-state)
      "tweets"
      (:_id x)
      (update-in x [:created_at] #(f/parse (:custom-formatter @mongo-state) (:created_at %)))))))
