    (range 1 32)
    (range 1 31)
    (range 1 32)])
-
-
 
 
 (defn fetch-url [url]

  "Export all collected tweets from a specific date as edn file. Read https://github.com/edn-format/edn for edn format details."
  [m d]
  (->> (get-tweets-from-date m d)
       (map #(dissoc % :_id))
       (map #(update-in % [:created_at] (fn [x] (f/unparse (:custom-formatter @mongo-state) x))))
       (map str)
       (clojure.string/join "\n")))

(defn get-recent-articles []
  (->> (mc/find-maps (:db @mongo-state) "articles" {:ts {$gt (t/date-time 2014 7 20)}})

                              $lte (t/date-time 2014 month day 23 59 59 999)}}))


(defn get-articles-from-date [month day]
  (mc/find-maps (:db @mongo-state) "articles"
                {:ts {$gt (t/date-time 2014 month day 0 0 0 0)
                      $lte (t/date-time 2014 month day 23 59 59 999)}}))


(defn get-hashtag-frequencies [coll]
  (->> coll
       (map #(from-db-object % true))
