korma-dasherizer.clj

(alter-var-root
 (var k/where*)
 (fn [f]
   #(f %1
       (walk/prewalk
        (fn [e]
          (if (:korma.sql.utils/generated e)
            (update e :korma.sql.utils/generated
                    (fn [k] (str/replace k "-" "_")))
            e)) %2))))

(def underscore-kw (comp keyword #(clojure.string/replace % "-" "_") name))

(def dasherize-kw  (comp keyword #(clojure.string/replace % "_" "-") name))

(def map-keys (fn [f m] (reduce-kv #(assoc %1 (f %2) %3) {} m)))

(defmacro defent [table & body]
  `(do (declare ~table)
       (defentity ~table
         (prepare   (partial map-keys underscore-kw))
         (transform (partial map-keys dasherize-kw))
         (table (-> (:name (meta (var ~table)))
                      (clojure.string/replace #"-" "_")
                      (keyword))))))