sampler.clj

(ns hatchery-service.models.media
  (:use korma.core)
  (:require [hatchery-service.entities :as entity]))

(defn find-all []
  (select entity/media))

(defn find-by [field value]
  (first
    (select entity/media
            (where {field value})
            (limit 1))))

(defn find-by-id [id]
  (find-by :id id))

(defn for-list [listdata]
  (find-by-id (listdata :user_id)))

(defn find-by-title [title]
  (find-by :title title))

(defn create [media]
  (insert entity/media
          (values media)))

(defn update-media [media]
  (update entity/media
          (set-fields (dissoc media :id))
          (where {:id (media :id)})))

(defn count-media []
  (let [agg (select entity/media
                    (aggregate (count :*) :cnt))]
    (get-in agg [0 :cnt] 0)))

(defn delete-media [media]
  (delete entity/users
          (where {:id (media :id)})))