gistfile1.clj

(defn export-twitter-archive []
  (->> (for [f (.listFiles (io/file "tweets/data/js/tweets"))
             :when (.endsWith (.getName f) ".js")]
         (for [tweet (json/read-str (second (str/split (slurp f) #"=" 2)) :key-fn keyword)]
           (assoc tweet
             :date (java.util.Date. (:created_at tweet)))))
       (apply concat)
       (sort-by :date)
       reverse))