          (.contains id "spoiler")
          nil)))
 
-(defn death-to-quotes [loc]
+(defn- death-to-quotes [loc]
   (if (zip/end? loc)
     loc
     (if (or (has-quote? (zip/node loc)) (has-spoiler? (zip/node loc)))

;;               (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)))

   (get-forum-posts)
   (#(pair-users-messages (extract-users %) (extract-messages %)))))

(defn- parse-and-wait [content first-index]
  (do (Thread/sleep 1000)
      (get-user-message-pairs content)))

(defn- get-player-message-maps [path first-index]
  (let [first-page (inc (quot first-index POSTS-PER-PAGE))]
   (some->>
    (fetch-certain-page path 1)
    (only-main-content)
    (get-page-numbers)
    (#(nthrest % (dec first-page)))
    ((fn [page-numbers]
       (map #(-> (fetch-certain-page path %)
                 (parse-and-wait first-index))
            page-numbers)))
    (flatten))))

(defn- enumerate [posts first-page-index]
  (->> (map-indexed #(vector (+ first-page-index %1) %2) posts)
       (into (sorted-map))))

(defn- is-host? [index-post hosts]
