   (time
    (do
      (println "Export-urls")
-     (let [origins (mc/find-maps @db "origins" {:source {$ne nil}})]
+     (let [origins (mc/find-maps @db "origins" {:source {$ne nil}
+                                                :ts {$gt (t/date-time 2014 8 1)
+                                                     $lt (t/date-time 2014 9 1)}})]
        (doall
         (map
          (fn [{:keys [article tweet ts source]}]

                  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)}
                                :user.screen_name {$in news-accounts}})]
      (time
       (doall




  ;; export tmp urls
  (letfn [(x-url [url]
            (let [expanded-url (-> url :url expand-url :url)]
