core.match macro with fns.

example.clj

;; Match with guard function
(match  [{:a 2} {:b 3}]
        [{:a (_ :guard even?)} _] 1)

;; Match-with-fn example for same
(match  [{:a 2} {:b 3}]
        [{:a even?} _] 1)

match-with-fn.clj

(defmacro match-with-fn
  [bindings & body]
  (let [wrap-group (fn [m]
                     (if (map? m)
                       (apply hash-map (mapcat (fn [[k v]]
                                                 [k (if (eval `(or (fn? ~v)
                                                                   (set? ~v)))
                                                      (list '_ :guard v)
                                                      v)])
                                               m))
                       m))
        body-new (mapcat (fn [[b val]]
                           [(if (keyword? b)
                              b
                              (mapv wrap-group b)) val])
                         (partition 2 body))]
    `(ccm/match [~@bindings] ~@body-new)))