gistfile1.clj

(defmacro match-def [op name sub? kwargs?]
  (with-gensyms [sub kwargs re input]
    (let [args [re input]
          args (if sub? (conj args sub) args)
          args (if kwargs? (conj args kwargs) args)]
      `(~op ~name ~args
        (let [matches# (map :saved (regex-seq ~re ~input ~(if kwargs? kwargs {})))]
          (mapv #(get-submatch ~input ~(if sub? sub 0) %)
                matches#))))))