normalizer.clj

(defmacro defnormalizer
  [name m]
  {:pre (map? m)}
  (let [arg 'rec
        body
        (reduce-kv
         (fn [m k v]
           ((if (sequential? v) assoc-in assoc)
            m
            v
            (if (sequential? k)
              `(-> ~arg ~@k)
              `(~arg ~k))))
         {}
         m)]
    `(defn ~name
       [~arg]
       ~body)))

(defnormalizer
  foo
  {:a :A
   :foo [:bar :bazz]
   :fizz [:bar :buzz]
   ::B
   [:x :y] :z})