   []
   (let [data-files (filter
                      (fn [f]
-                       (re-find #".clj$" (.getAbsolutePath f)))
+                       (re-find #".*-disqus-threads-.*.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 [incanter core stats charts io]))

(defn compute-downloaded-records
  []

            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 "/bos/www/htdocs/spalakod/disqus/disqus_samples.html" (generate-samples))))
