Socket and connection parameters in clj-http

sock-conn-params.clj

(require '[clj-http.client :as client]
  '[clojure.java.io :as java.io]
  '[clj-http.conn-mgr :as conn-mgr]
  '[clojure.java.shell :as shell])
(import org.apache.http.config.SocketConfig)
(import org.apache.http.config.ConnectionConfig)
(import java.io.InputStreamReader)
(import java.io.BufferedReader)

(def events-url "https://github.com")
(def token "asdfasdfasdfasdf")
(let [cm (conn-mgr/make-regular-conn-manager {})]
  (.setSocketConfig cm
    (-> (SocketConfig/copy (.getSocketConfig cm))
      (.setRcvBufSize 40)
      (.build)))
  (.setConnectionConfig cm
    (-> (ConnectionConfig/copy (.getConnectionConfig cm))
      (.setBufferSize 40)
      (.build)))
  (prn ">")
  (def ins (-> (client/get events-url
                 {:headers {"Authorization" (str "Bearer " token)}
                  :as :stream
                  :connection-manager cm})
             :body))
  (do #_clojure.core.async/thread
    (doseq [l (-> ins
                (InputStreamReader.)
                (BufferedReader. 40)
                line-seq)]
      (prn l))))