gistfile1.clj

(defentity products)

(defn get-products []
  (select products))

(defn create-product [product]
  (insert products (values product)))

(defn retrieve-product [id]
  (select products
    (where {:id (Integer/parseInt id)})))

(defn update-product [id product]
  (update products
    (set-fields product)
    (where {:id (Integer/parseInt id)})))

(defn delete-product [id]
  (delete products
    (where {:id (Integer/parseInt id)})))