 
 (comment
 
-  (get-hashtag-distribution 6 16)
-
-
-  (compute-diffusion "SZ")
+  (let [ids (mapv :id_str (get-tweets "SPIEGELONLINE"))]
+    (compute-tweet-diffusion (nth ids 11)))
+
 
   (->>
    (mc/find

                                                           {"retweeted_status.user.screen_name" user}
                                                           {"in_reply_to_screen_name" user}]}
                                                    {:created_at {$gt (t/date-time 2014 7 1)}}]})))


(defn get-news-diffusion []

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

