Use azql.

Author: ForNeVeR

.gitignore

@@ -12,4 +12,6 @@
 out
 Hyperspace.iml
 
+.nrepl-port
+
 hyperspace-server.*.db

project.clj

@@ -1,6 +1,6 @@
 (defproject hyperspace "1.0.0-SNAPSHOT"
   :description "Simple 2D game written in Clojure."
-  :dependencies [[azql "0.1.0"]
+  :dependencies [[azql "0.2.0"]
                  [clj-liquibase "0.5.2"]
                  [com.h2database/h2 "1.3.173"]
                  [crypto-password "0.1.3"]

src/hyperspace/server/database/datasource.clj

@@ -1,5 +1,7 @@
 (ns hyperspace.server.database.datasource
-  (:require [clj-liquibase.cli :as cli]
+  (:require [azql.emit :as emit]
+            [azql.dialect :as dialect]
+            [clj-liquibase.cli :as cli]
             [hyperspace.server.database.migrations :as migrations])
   (:use [hyperspace.server.config :only [config]])
   (:import [org.h2.jdbcx JdbcConnectionPool]))
@@ -12,3 +14,9 @@
     (cli/update {:datasource ds
                  :changelog  migrations/changelog})
     ds))
+
+(dialect/register-dialect ::h2)
+(defmethod dialect/guess-dialect :h2 [_] ::h2)
+(defmethod emit/quote-name ::h2 [name] (str name))
+
+(def db-spec {:datasource datasource})

src/hyperspace/server/database/user.clj

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

src/hyperspace/swagger/server.clj

@@ -19,5 +19,4 @@
                           :query-params [login :- String
                                          password :- String]
                           :summary "register user"
-                          (user/create login password)
-                          (ok))))
+                          (ok (user/create login password)))))