core.clj

(ns concurrent-http.core
  (:gen-class)
  (:require [org.httpkit.client :as http]))

(def list-size 200)
(def callbacks-counter (ref 0))
(def callbacks-finished (promise))


(def urls (take list-size (repeat "http://www.google.com")))

(defn handle-response [{:keys [status headers body error]}]
  (dosync (alter callbacks-counter inc))
  (if error
    (println "Failed" @callbacks-counter)
    (println "Done" @callbacks-counter))
  (if (= @callbacks-counter list-size) (deliver callbacks-finished true))
  )



(defn -main [& args]
  (dorun (map #(http/get % handle-response) urls))
  @callbacks-finished
  )