#16: enable liquibase migrations, add database configuration.

Author: ForNeVeR

README.md

@@ -11,6 +11,9 @@ Use `lein run client` to run the standalone game client.
 
 ## Game server
 
+### Configuring
+All configuration data is stored in the `config.edn` file.
+
 ### Running
 Use `lein ring server` to run game server.
 

config.edn

@@ -0,0 +1,3 @@
+{:database {:url "jdbc:h2:hyperspace-server;DB_CLOSE_DELAY=-1"
+            :user "sa"
+            :password ""}}

project.clj

@@ -1,6 +1,6 @@
 (defproject hyperspace "1.0.0-SNAPSHOT"
   :description "Simple 2D game written in Clojure."
-  :dependencies [[com.googlecode.flyway/flyway-core "2.3"]
+  :dependencies [[clj-liquibase "0.5.2"]
                  [com.h2database/h2 "1.3.173"]
                  [log4j/log4j "1.2.17"]
                  [metosin/ring-swagger "0.13.0"]

src/hyperspace/server/config.clj

@@ -0,0 +1,11 @@
+(ns hyperspace.server.config
+  (:import (java.io PushbackReader))
+  (:require [clojure.java.io :as io]))
+
+(defn -from-edn
+  [fname]
+  (with-open [rdr (-> (io/reader fname)
+                      PushbackReader.)]
+    (clojure.edn/read rdr)))
+
+(def config (-from-edn "config.edn"))

src/hyperspace/server/database.clj

@@ -0,0 +1,14 @@
+(ns hyperspace.server.database.datasource
+  (:require [clj-liquibase.cli :as cli]
+            [hyperspace.server.database.migrations :as migrations])
+  (:use [hyperspace.server.config :only [config]])
+  (:import [org.h2.jdbcx JdbcConnectionPool]))
+
+(def datasource
+  (let [{url :url
+         user :user
+         password :password} (:database config)
+        ds (JdbcConnectionPool/create url user password)]
+    (cli/update {:datasource ds
+                 :changelog  migrations/changelog})
+    ds))

src/hyperspace/server/database/datasource.clj

@@ -0,0 +1,13 @@
+(ns hyperspace.server.database.migrations
+  (:require [clj-liquibase.change :as ch])
+  (:use [clj-liquibase.core :only (defchangelog)]))
+
+(def add-users-table
+  (ch/create-table :users
+                   [[:id :int :null false :pk true :autoinc true]
+                    [:name [:varchar 40] :null false]
+                    [:password [:varchar 40] :null false]]))
+
+(def changeset-1 ["id=1" "author=ForNeVeR" [add-users-table]])
+
+(defchangelog changelog "hyperspace-server" [changeset-1])

src/hyperspace/server/database/migrations.clj

@@ -1,7 +1,8 @@
 (ns hyperspace.swagger.server
   (:require [compojure.api.sweet :refer :all]
             [ring.util.http-response :refer :all]
-            [schema.core :as s]))
+            [schema.core :as s])
+  (:use [hyperspace.server.database.datasource :only [datasource]]))
 
 (s/defschema Total {:total Long})