 (def ^:private request-header
   {"User-Agent" user-agent})
 
+(def ^:private ^:const POSTS-PER-PAGE 20)
+
 (defn- fetch-page [path]
   (if-not (.contains path "teamliquid.net/forum/") nil
     (try

;;               (map #(assoc  % :day day) votes)))
;;           votes-by-days))

(defn- scan-votes [player-message-maps hosts]
  (let [indexed (enumerate player-message-maps)
        day-ranges (-> (cycle-changes indexed hosts)
                       (keys)
                       (to-day-ranges))]
    (days-into-votes (range 1 (inc (count day-ranges)))
                     (map #(get-votes-in-range indexed %) day-ranges))))

(defn scan-all-votes [url hosts]
  (let [player-message-maps (get-player-message-maps url)]
    (scan-votes player-message-maps hosts)))

         (.contains id "spoiler")
         nil)))

(defn- death-to-quotes [loc]
  (if (zip/end? loc)
    loc
    (if (or (has-quote? (zip/node loc)) (has-spoiler? (zip/node loc)))
