 (defn get-tweets
   "Fetches all tweets by a given twitter user"
   [user]
-  (->> (mc/find (:db @mongo-state) "tweets" {"user.screen_name" user})
+  (->> (mc/find (:db @mongo-state) "tweets" {:user.screen_name user :created_at {$gt (t/date-time 2014 7 1)}})
        seq
        (map #(from-db-object % true))))
 


(comment

  (get-hashtag-distribution 6 16)


  (compute-diffusion "SZ")

  (->>
   (mc/find

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



)
