2014-09-28 01:41:01 +02:00
|
|
|
(ns luduverse.db
|
2014-09-28 13:30:37 +02:00
|
|
|
(:require [korma.core :refer :all]
|
2014-09-28 01:41:01 +02:00
|
|
|
[korma.db :refer [defdb mysql]]))
|
|
|
|
|
|
|
|
(defdb db (mysql {:db "luduverse"
|
2014-09-28 16:43:29 +02:00
|
|
|
:user "luduverse"
|
2014-09-28 13:30:37 +02:00
|
|
|
:password "dev"}))
|
2014-09-28 01:41:01 +02:00
|
|
|
|
|
|
|
(declare entities competitions users sources)
|
|
|
|
|
|
|
|
(defentity entries
|
|
|
|
(database db)
|
2014-09-28 20:59:27 +02:00
|
|
|
(belongs-to competitions {:fk :competition_id})
|
|
|
|
(belongs-to users {:fk :user_id})
|
2014-09-28 01:41:01 +02:00
|
|
|
(has-many sources))
|
|
|
|
|
|
|
|
(defentity competitions
|
|
|
|
(database db)
|
|
|
|
(has-many entries))
|
|
|
|
|
|
|
|
(defentity users
|
|
|
|
(database db)
|
|
|
|
(has-many entities))
|
|
|
|
|
|
|
|
(defentity sources
|
|
|
|
(database db)
|
|
|
|
(belongs-to entities))
|