             cnt (sel data :cols 1)]
         (save (time-series-plot dates cnt :y-label "Threads List Downloaded")
               "/bos/www/htdocs/spalakod/disqus/disqus_thread_list.png"))
-      (spit "disqus_samples.html" (generate-samples))))
+      (spit "/bos/www/htdocs/spalakod/disqus/disqus_samples.html" (generate-samples))))

  []
  (let [data-files (filter
                     (fn [f]
                       (re-find #".clj$" (.getAbsolutePath f)))
                     (file-seq (java.io.File. ".")))]
    (str
     "<html>"

  (:require [clj-time.core :as t]
            [clj-time.coerce :as c]
            [clojure.java.io :as io])
  (:use [clojure.pprint :only [pprint]]
        [incanter core stats charts io]))

(defn compute-downloaded-records
  []
