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


(comment

  (get-hashtag-distribution 6 16)


  (compute-diffusion "SZ")

  (->>
   (mc/find

(defn get-tweets
  "Fetches all tweets by a given twitter user"
  [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))))

