http.clj

(ns fjorm.http
  (:require
    [cheshire.core :as json]))

(defmacro with-open-> [stream & body]
  `(with-open [stream# ~stream]
     (-> stream# ~@(map #(if (seq? %) % (list %)) body))))

(defn post-json [url json]
  (let [bytes (.getBytes (json/generate-string json))]
    (-> (doto (.openConnection (java.net.URL. url))
          (.setRequestMethod "POST")
          (.setRequestProperty "content-type" "application/json")
          (.setDoOutput true)
          (.setInstanceFollowRedirects false)
          (.setFixedLengthStreamingMode (count bytes))
          (.connect)
          (-> (.getOutputStream) (with-open-> (.write bytes))))
        (.getInputStream)
        (java.io.InputStreamReader.)
        (with-open-> (json/parse-stream)))))

(comment

  (post-json
    "http://engine.adzerk.net/api/v2"
    {:placements [{:siteId 333999 :adTypes [5]}]})

  )