stunnr.core.clj

stunnr.core.clj

(ns stunnr.core
  (:require [http.async.client :as c]
            [http.async.client.request :as r]))

(def results (atom []))

(def requests (atom []))

(def client (c/create-client))

(defn fetch-url [^String url]
  (swap! requests conj
         (let [req (r/prepare-request :get url)
               res (apply r/execute-request
                          client req
                          (apply concat
                                 (merge
                                  r/*default-callbacks*
                                  {:completed (fn [res]
                                                (clojure.pprint/pprint (c/status res))
                                                (swap! results conj res)
                                                [true :continue])})))]
           req)))