awesome-fn

gistfile1.clj

(def ^:dynamic *x* :default-x)
(def ^:dynamic *y* :default-y)
(def ^:dynamic *z* :default-z)
(def ^:dynamic *opts* {:x *y* :y *z* :z *x*})


(defn awesome-fn [f x y z & {:as opts
                             :keys [x y z]
                             :or {x *x*
                                  y *y*
                                  z *z*}}]
  (let [opts1 *opts*]
    (binding [*opts* (merge opts1 opts)]
      (apply f x y z (apply concat (merge opts opts1))))))