Utility functions for Korma (A Clojure Library for Tasty SQL)
[kormas "0.1.1"]
(require '[kormas.core :refer [definit mysql-db-config]])
(require '[kormas.util :refer [swap transform-key]])
(definit db-init
[user password]
;; db
(defdb main-db
(mysql (mysql-db-config {:user user
:password password
:host "localhost"
:db "mydb"})))
;; entities
(defentity myuser
(database main-db)
(prepare (fn [v]
(-> v
(swap :status keyword)
(swap :enable #(= 0 %)))))
(transform (fn [v]
(-> v
(swap :status str)
(swap :enable #(if % 0 1)))))))
Copyright Takashi AOKI
Licensed under the Apache License, Version 2.0.