Simple map filters in Clojure

mmatch.clj

(defn match
  [m]
  (reduce
   (fn [f f']
     (fn [m] (and (f m) (f' m))))
   (map (fn [[k v]] #(= v (get % k))) m)))

(def bands
  [{:genere :rock :name "Deep Purple"}
   {:genere :metal :name "Iron Maiden"}
   {:genere :metal :name "Motorhead"}])

(filter (match {:genere :metal}) bands)

(defmacro matchm
  [m]
  (let [g (gensym)]
    `(fn [~g] (and ~@(map (fn [[k v]] `(= ~v (get ~g ~k))) m)))))

(filter (matchm {:genere :metal}) bands)