Crazily indented clojure macro

macro.clj

(ns http)

(defn post [a b] "test")

(def ^:private http-extras
  {:insecure? true, :debug true})

(let [orig http/post
      f    (fn [u r] (orig u (merge r http-extras)))]
  (defmacro patch-http
    "Monkey-patch HTTP requests to do stuff we want"
    [& body]
    `(with-redefs [http/post ~f] ~@body)))

(defn get-token
  "Get an OAuth request token"
  [callback]
  (patch-http
    (+ 1 2)))

(defmacro patch-http
  "Monkey-patch HTTP requests to do stuff we want"
  [& body]
  `(with-redefs
     [http/post
      #(clj-http.client/post %1 (assoc %2 :insecure? true :debug true))]
      ~@body))

(defmacro patch-http
  "Monkey-patch HTTP requests to do stuff we want"
  [& body]
  (let [f #(clj-http.client/post %1 (assoc %2 :insecure? true :debug true))]
    `(with-redefs [http/post ~f] ~@body)))

(let [orig-post clj-http.client/post
      f #(orig-post %1 (assoc %2 :insecure? true :debug true))]
  (defmacro patch-http
    "Monkey-patch HTTP requests to do stuff we want"
    [& body] `(with-redefs [http/post ~f] ~@body)))

(ns http)

(defn post [a b] "test")

(def ^:private http-extras
  {:insecure? true, :debug true})

(let [orig-post http/post]
  (defmacro patch-http
    "Monkey-patch HTTP requests to do stuff we want"
    [& body]
    `(with-redefs [http/post #(~orig-post %1 (merge %2 http-extras))]
       ~@body)))

(defn get-token
  "Get an OAuth request token"
  [callback]
  (let [orig-post http/post]
    (with-redefs [http/post #(orig-post %1 (merge %2 http-extras))]
      (+ 1 2))))

(defn get-token-2
  "Get an OAuth request token"
  [callback]
  (patch-http (+ 1 2)))

(ns http)

(defn post [a b] [a b])

(def ^:private http-extras
  {:insecure? true, :debug true})

(let [orig-post http/post]
  (defmacro patch-http
    "Monkey-patch HTTP requests to do stuff we want"
    [& body]
    `(with-redefs [http/post #(~orig-post %1 (merge %2 http-extras))]
       ~@body)))

(defn get-token
  "Get an OAuth request token"
  [callback]
  (let [orig-post http/post]
    (with-redefs [http/post #(orig-post %1 (merge %2 http-extras))]
      (post "/foo" {}))))

(defn get-token-2
  "Get an OAuth request token"
  [callback]
  (patch-http (post "/foo" {})))