2013-09-29 01:08:25 +02:00
|
|
|
(ns ldview.models.competition
|
|
|
|
(:use korma.core
|
2014-04-23 23:23:44 +02:00
|
|
|
[ldview.db]))
|
2013-09-29 01:08:25 +02:00
|
|
|
|
|
|
|
(defn latest []
|
|
|
|
(first (select competitions
|
2014-01-30 21:02:25 +01:00
|
|
|
(order :number :DESC)
|
2013-09-29 01:08:25 +02:00
|
|
|
(limit 1))))
|
2013-09-30 00:37:38 +02:00
|
|
|
|
|
|
|
(defn exists? [number]
|
|
|
|
(not (empty? (select competitions
|
|
|
|
(fields :id)
|
|
|
|
(where {:number number})))))
|
|
|
|
|
|
|
|
(defn create! [number motto]
|
2014-01-30 00:27:46 +01:00
|
|
|
(if-not (exists? number)
|
|
|
|
(insert competitions (values {:number number
|
|
|
|
:motto motto}))))
|