Add azql, slightly improve migrations.

Author: ForNeVeR

project.clj

@@ -1,7 +1,9 @@
 (defproject hyperspace "1.0.0-SNAPSHOT"
   :description "Simple 2D game written in Clojure."
-  :dependencies [[clj-liquibase "0.5.2"]
+  :dependencies [[azql "0.1.0"]
+                 [clj-liquibase "0.5.2"]
                  [com.h2database/h2 "1.3.173"]
+                 [crypto-password "0.1.3"]
                  [log4j/log4j "1.2.17"]
                  [metosin/ring-swagger "0.13.0"]
                  [metosin/compojure-api "0.16.0"]

src/hyperspace/server/database/migrations.clj

@@ -2,12 +2,11 @@
   (: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 add-users-table ["id=1"
+                      "author=ForNeVeR"
+                      [(ch/create-table :users
+                                        [[:id :int :null false :pk true :autoinc true]
+                                         [:login [:varchar 40] :null false] ;; TODO: enforce login uniqueness
+                                         [:password [:varchar 16] :null false]])]])
 
-(def changeset-1 ["id=1" "author=ForNeVeR" [add-users-table]])
-
-(defchangelog changelog "hyperspace-server" [changeset-1])
+(defchangelog changelog "hyperspace-server" [add-users-table])

src/hyperspace/server/database/user.clj

@@ -0,0 +1,13 @@
+(ns hyperspace.server.database.user
+  (:require [crypto.password.scrypt :as password])
+  (:use [hyperspace.server.database.datasource :only [datasource]]
+        [azql.core :only [insert! values]]))
+
+(defn create [login password]
+  '())
+
+;;
+;;
+;;  (insert! datasource :user
+;;           (values [{:login    login
+;;                     :password (password/encrypt password)}]))

src/hyperspace/swagger/server.clj

@@ -1,8 +1,8 @@
 (ns hyperspace.swagger.server
   (:require [compojure.api.sweet :refer :all]
             [ring.util.http-response :refer :all]
-            [schema.core :as s])
-  (:use [hyperspace.server.database.datasource :only [datasource]]))
+            [schema.core :as s]
+            [hyperspace.server.database.user :as user]))
 
 (s/defschema Total {:total Long})
 
@@ -19,4 +19,5 @@
                           :query-params [login :- String
                                          password :- String]
                           :summary "register user"
-                          (ok "Not implemented"))))
+                          (user/create login password)
+                          (ok))))