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 []))

(defn fetch-url [^String url]
  (swap! requests conj (future
                         (with-open [client (c/create-client)]
                           (let [req (r/prepare-request client
                                                        :get "http://google.com")
                                 res (r/execute-request req {:completed (fn [res]
                                                                          (clojure.pprint/pprint res)
                                                                          (swap! results conj res))})]
                             ;; now you have request, next thing to do would be to execute it
                             
                             (c/await res))))))