gistfile1.txt

(ns quil.cljshttp
  (:require-macros [cljs.core.async.macros :refer [go]])
  (:refer-clojure :exclude [get])
  (:require [cljs-http.client :as http]
            [cljs.core.async :refer [<!]]))

(def username (atom "someone"))

(defn get-from-server [login-name]
  (go (let [response (<! (http/get "https://api.github.com/users/octocat/gists" {:with-credentials? false\
}))
            owner (-> response :body first :owner)]
        (.log js/console (:status response))
        (.log js/console (clj->js (:login owner)))
        (reset! username (:login owner)))))

(go
  (.log js/console (clj->js (<! (get-from-server username))))

  (.write js/document (str "<p>Hello, " (clj->js (<! (get-from-server (atom "who"))) " </p>"))))