24 lines
428 B
Clojure
24 lines
428 B
Clojure
(ns ldview.db
|
|
(:require [ldview.models.schema :as schema]
|
|
[korma.core :refer :all]
|
|
[korma.db :refer [defdb]]))
|
|
|
|
(defdb db schema/db-spec)
|
|
|
|
(declare entities contests users sources)
|
|
|
|
(defentity entries
|
|
(belongs-to contests)
|
|
(belongs-to users)
|
|
(has-many sources))
|
|
|
|
(defentity competitions
|
|
(has-many entries))
|
|
|
|
(defentity users
|
|
(has-many entities))
|
|
|
|
(defentity sources
|
|
(belongs-to entities))
|
|
|