                   t-type (dispatch-type tweet)]
               (store-published uid _id url-id t-type hids created_at)))]
     (let [tweets (mc/find-maps @db "tweets"
-                               {:created_at {$gt (t/date-time 2014 7 1)
-                                             $lt (t/date-time 2014 10 1)}
+                               {:created_at {$gt (t/date-time 2014 8 1)
+                                             $lt (t/date-time 2014 9 1)}
                                 :user.screen_name {$in news-accounts}})]
       (time
        (doall

              (do
                (doall (pmap #(when-not (nil? %) (store-mention % pub-id)) user-mentions))
                (store-reaction pub-id source-tid))))]
    (let [retweets (mc/find-maps @db "tweets" {:created_at {$gt (t/date-time 2014 7 1)
                                                            $lt (t/date-time 2014 8 1)}
                                               :retweeted_status {$ne nil}
                                               :user.screen_name {$nin news-accounts}})]
      (time (doall (pmap transact-published retweets)))))


)

  ;; export all hashtags
  (letfn [(extract-hashtags [{{:keys [hashtags]} :entities}]
            (pmap :text hashtags))]
    (let [tweets (mc/find-maps @db "tweets" {:created_at {$gt (t/date-time 2014 8 1)
                                                          $lt (t/date-time 2014 9 1)}
                                             :entities.hashtags {$ne []}})]
      (time
       (doall
