Clojure curl implementation

[practicalli-johnny]

No description provided.

[practicalli-johnny]

Using clj-http library to create a clojure curl style command

TODO: can this be re-implmented with http-kit/client ?

(ns foo
  (:require [clj-http.client :as client]
            [clj-http.headers :as headers]))

(defn request [req]
  (client/with-middleware [headers/wrap-header-map
                           client/wrap-query-params
                           client/wrap-url
                           client/wrap-output-coercion
                           client/wrap-method]
    (client/request req)))

;; `:keys` included for documentation
(defn curl [method url & {:keys [headers query-params] :as req}]
  (request (merge req {:method method :url url})))

;; curl -X POST --header "Content-Type: application/json" -d "name=Bob" "http://google.com"
(curl :post "http://google.com" :headers {"Content-Type" "application/json"} :query-params {"name" "Bob"})

To send the request as a body

(curl :post "http://google.com" :headers {"Content-Type" "application/json"} :body '{"name" "Bob"}')