     wrap-output-coercion
     wrap-query-params
     wrap-basic-auth
+    wrap-user-info
     wrap-accept
     wrap-accept-encoding
     wrap-content-type

     :server-name (.getHost url-parsed)
     :server-port (if-pos (.getPort url-parsed))
     :uri (.getPath url-parsed)
     :query-string (.getQuery url-parsed)}))



                        (basic-auth-value user password))))
      (client req))))

(defn parse-user-info [user-info]
  (when user-info
    (str/split #":" user-info)))

(defn wrap-user-info [client]
  (fn [req]
    (if-let [[user password] (parse-user-info (:user-info req))]
      (client (assoc req :basic-auth [user password]))
      (client req))))

(defn wrap-method [client]
  (fn [req]
