Turn let into defn

gistfile1.clj

(defmacro defletn [name & body]
  (let [args (->> body
                  last
                  second
                  (apply array-map)
                  keys
                  vec)]
    `(defn ~name
       ~@(butlast body)
       ~args
       ~(nth (last body) 2))))

(defletn foo
  "Doc"
  (for [n [1 2]
        m [3 4]]
    (+ m n)))

(defletn bar
  (let [n 1
        m 2]
    (+ m n)))

refactoring.clj

(defn complex-fn []
  (let [a 1]
    (if (foo 2)
      (let [b 2]
        (bar b)))))

;; extract the inner let

(defletn baz
  (let [b 2]
    (bar b))

(defn simpler-fn []
  (let [a 1]
    (if (foo 2)
      (baz 2))))

repl.clj

user> (bar 5 6)
11
user> (foo 5 6)
11