Skip to content

Instantly share code, notes, and snippets.

@hiredman

hiredman/utilities.clj

Created May 28, 2009 15:12
Show Gist options
  • Save hiredman/119375 to your computer and use it in GitHub Desktop.
Save hiredman/119375 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
utilities.clj
(defn get-url [x]
(with-open [a (-> (doto (-> x URL. .openConnection)
(.setRequestProperty "User-Agent" "clojurebot"))
.getInputStream InputStreamReader. BufferedReader.)]
(loop [buf (StringBuilder.) line (.readLine a)]
(if line
(recur (doto buf (.append line)) (.readLine a))
(.toString buf)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment