defaction

gistfile1.txt

(defmacro defaction [name & params-with-body]
  (let [params-vector (first params-with-body)
	params-hash (apply hash-map (flatten (map (fn [p] [p (symbol (str ":" p))]) params-vector)))
	body (next params-with-body)
	session (symbol "session")]
    `(defn ~name [{~params-hash :params, ~session :session}]
       ~@body)))