kw_map_fn.clj

; not a great name, but....

(defn kw-map-fn
  [f]
  (fn [& args]
    (if (-> args count odd?)
      (apply f (concat (drop-last args)
                 (mapcat identity (last args))))
      (apply f args))))

(defn foo [& {:keys [a]}] (println a))
(def foo (kw-map-fn foo))
(defn bar [& {:keys [a] :as m}] (foo m))
(def bar (kw-map-fn bar))

1:15 user=> (foo :a 5)
5
nil
1:16 user=> (foo {:a 5})
5
nil
1:17 user=> (bar :a 5)
5
nil
1:18 user=> (bar {:a 5})
5
nil