Argument inferencer source.

argument-inferencer-source

(ns infer-arg.core
  (:use [clojure.core.incubator :only [-?>]]))

(defn make-wrapper-fn
  [symbolic-arg-list]
  (eval
    `(fn [f# {:keys ~symbolic-arg-list}]
       (f# ~@symbolic-arg-list))))

(defn inference-wrapper
  [f]
  (if-let [arg-list (-?> f meta :arg-list)]
    (let [symbolic-arg-list (vec (map #(-> % name symbol) arg-list))]      
      (partial
        (make-wrapper-fn symbolic-arg-list)
        f))
    f))

(defmacro fn|arg-list
  [args & body]
  (let [arg-list (vec (map keyword args))]
    `(with-meta
       (fn ~args ~@body)
       {:arg-list ~arg-list})))

(defmacro defn|arg-list
  [sym args & body]
  `(def ~sym (fn|arg-list ~args ~@body)))