28 lines
580 B
Clojure
28 lines
580 B
Clojure
(ns luduverse.db
|
|
(:require [korma.core :refer :all]
|
|
[korma.db :refer [defdb mysql]]))
|
|
|
|
(defdb db (mysql {:db "luduverse"
|
|
:user "luduverse"
|
|
:password "dev"}))
|
|
|
|
(declare entities competitions users sources)
|
|
|
|
(defentity entries
|
|
(database db)
|
|
(belongs-to competitions {:fk :competition_id})
|
|
(belongs-to users {:fk :user_id})
|
|
(has-many sources))
|
|
|
|
(defentity competitions
|
|
(database db)
|
|
(has-many entries))
|
|
|
|
(defentity users
|
|
(database db)
|
|
(has-many entities))
|
|
|
|
(defentity sources
|
|
(database db)
|
|
(belongs-to entities))
|