gistfile1.clj

(ns test.db.core
  (:use korma.core
        [korma.db :only (defdb)])
  (:require [test.db.schema :as schema]))

(comment
 
(ns test.db.schema)

(def db-spec
  {:subprotocol "mysql"
   :subname "//localhost:3306/test"
   :user "root"
   :password "*******"})
  
)

(defdb db schema/db-spec)

(defentity users)

(defn create-user [user]
  (insert users
          (values user)))

(defn update-user [id first-name last-name email]
  (update users
  (set-fields {:first_name first-name
               :last_name last-name
               :email email})
  (where {:id id})))

(defn get-user [id]
  (first (select users
                 (where {:id id})
                 (limit 1))))