define_fns.clj

(def transform-keys (keys transformators))

(defmacro defvariant [name]
  ` (defmulti ~name
    (fn [structure#]
      (:f structure#))))

(defmacro defcase [name field ]
  `(defmethod ~name ~field [structure#]
    ((~field transformators) (:data structure#))))


(defvariant transformer-func)

(mapv
  (fn[field]
    (defcase transformer-func field)) transform-keys)