   (let [stats-files (filter
                      (fn [f]
                        (re-find #".stats$" (.getAbsolutePath f)))
-                     (file-seq (java.io.File. ".")))]
+                     (file-seq (java.io.File. core/disqus-jobs-dir)))]
     (reduce
      (fn [acc s]
        (+ acc (read-string (slurp s))))

  (:gen-class :main true)
  (: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]))


  (let [data-files (filter
                     (fn [f]
                       (re-find #".*-disqus-threads-.*.clj$" (.getAbsolutePath f)))
                     (file-seq (java.io.File. core/disqus-jobs-dir)))]
    (str
     "<html>"
     "<body>"
