   [status]
   (and (integer? status) (> 300 status 199)))
 
-(defn- send-final-message
-  "Sends a results event containing total row and message event summarizing checked links."
-  [send-to time links]
-  (send-to
-   "message"
-   (if (zero? (count links))
-     "No links found. Check your link and selector."
-     (let [invalid-links (count (remove #(successful-status? (:status %)) links))]
-       (format "%s It took %ss to fetch %s links."
-               (case invalid-links
-                 0 "All links are valid!"
-                 1 "1 link did not return a 2XX response."
-                 (str invalid-links " links did not return a 2XX response."))
-              time
-              (count links))))))
-
 (def default-clj-http-options
   {:max-redirects 5
    :throw-exceptions false

                (clojure.string/join " , " (rest (:trace-redirects resp))))
        (:status resp))))

(defn- fetch-link [url]
  (log/info :msg (format "Verifying link %s ..." url))
  (let [resp (try (let [head (client-head url)]
                    (if (> 400 (:status head) 199)

    result-map))

(defn- body->links
  "Converts a url's body to links."
  [string options]
  (-> string
      (java.io.StringReader.)
