First commit.

Author: john-shaffer

LICENSE

@@ -0,0 +1,21 @@
+MIT License
+
+Copyright (c) 2020 StaticWeb.io
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

README.md

@@ -0,0 +1 @@
+# clj-http-failjure

deps.edn

@@ -0,0 +1 @@
+{}

src/clj_http_failjure/client.clj

@@ -0,0 +1,35 @@
+(ns clj-http-failjure.client
+  (:require [clj-http.client :as client]
+            [clj-http.util :as util]
+            [failjure.core :as f])
+  (:refer-clojure :exclude [get]))
+
+; From https://github.com/dakrone/clj-http/blob/aee13b4f544e83e4eb6014d6d1f9178676899f13/src/clj_http/client.clj#L1158-L1165
+(defn- request*
+  [req [respond raise]]
+  (if (util/opt req :async)
+    (if (some nil? [respond raise])
+      (throw (IllegalArgumentException.
+              "If :async? is true, you must pass respond and raise"))
+      (client/request (dissoc req :respond :raise) respond raise))
+    (client/request req)))
+
+(defmacro def-request-method [method-symbol]
+  `(defn ~method-symbol
+     "Like #'request, but sets the :method and :url as appropriate."
+     [~'url & [~'req & ~'r]]
+     (client/check-url! ~'url)
+     (let [~'req (merge ~'req {:method ~(keyword method-symbol)
+                               :url ~'url})]
+       (f/try*
+         (request* ~'req ~'r)))))
+
+(def-request-method get)
+(def-request-method head)
+(def-request-method post)
+(def-request-method put)
+(def-request-method delete)
+(def-request-method options)
+(def-request-method copy)
+(def-request-method move)
+(def-request-method patch)