19 lines
519 B
Clojure
19 lines
519 B
Clojure
(ns luduverse.models.competition
|
|
(:require [korma.core :refer :all]
|
|
[luduverse.db :refer :all]))
|
|
|
|
(defn latest []
|
|
(first (select competitions
|
|
(order :number :DESC)
|
|
(limit 1))))
|
|
|
|
(defn exists? [number]
|
|
(not (empty? (select competitions
|
|
(fields :id)
|
|
(where {:number number})))))
|
|
|
|
(defn create! [number theme]
|
|
(if-not (exists? number)
|
|
(insert competitions (values {:number number
|
|
:theme theme}))))
|