A macro that allows to define a function with one arity, that gets curried. You can call the curried function with any number of arguments at a time.

curry.clj

(ns util.curry)

(defn feed-curry [f arg args]
  (if (pos? (count args))
    (recur (f arg) (first args) (rest args))
    (f arg)))

(defn- curried-fn-body [name args body]
  {:pre [(pos? (count args))]}
  (let [arg (first args)
        fname (gensym (str name "_curry" (count args) \_))]
    `(fn ~fname
       ([arg# & rst#] (feed-curry ~fname arg# rst#))
       ([~arg] ~@(if (= 1 (count args))
                   body
                   [(curried-fn-body name (rest args) body)])))))

(defmacro defc
  "Define curried function"
  [name args & body]
  `(def ~name ~(curried-fn-body name args body)))