ldview/src/ldview/models/competition.clj

18 lines
537 B
Clojure
Raw Normal View History

2013-09-29 01:08:25 +02:00
(ns ldview.models.competition
(:use korma.core
[ldview.models.db]
[ldview.tasks.scrape :as configuration :only [competition]]))
2013-09-29 01:08:25 +02:00
(defn latest []
(first (select competitions
(where {:number configuration/competition}) ; FIXME: Make it dynamic
2013-09-29 01:08:25 +02:00
(limit 1))))
(defn exists? [number]
(not (empty? (select competitions
(fields :id)
(where {:number number})))))
(defn create! [number motto]
(insert competitions (values {:number number :motto motto})))