Add simple swagger API.

Author: ForNeVeR

README.md

@@ -12,7 +12,7 @@ Use `lein run client` to run the standalone game client.
 ## Game server
 
 ### Running
-Use `lein run server [port]` to run game server.
+Use `lein ring server` to run game server.
 
 ### Protocol
 Hyperspace protocol is very simple. All messages are transferred in the JSON format.

project.clj

@@ -3,12 +3,22 @@
   :dependencies [[com.googlecode.flyway/flyway-core "2.3"]
                  [com.h2database/h2 "1.3.173"]
                  [log4j/log4j "1.2.17"]
+                 [metosin/ring-swagger "0.13.0"]
+                 [metosin/compojure-api "0.16.0"]
+                 [metosin/ring-http-response "0.5.0"]
+                 [metosin/ring-swagger-ui "2.0.17"]
                  [midje "1.5.0"]
-                 [org.clojure/clojure "1.5.1"]
+                 [org.clojure/clojure "1.6.0"]
                  [org.clojure/clojure-contrib "1.2.0"]
                  [org.clojure/data.json "0.2.2"]
                  [org.clojure/tools.logging "0.2.3"]
                  [org.clojars.rexim/jinput-platform-natives "2.0.5"]
                  [org.ru.codingteam/lwjgl-platform-natives "2.9.1"]
                  [org.lwjgl.lwjgl/lwjgl "2.9.1"]]
+  :ring {:handler hyperspace.swagger.server/app}
+  :uberjar-name "hyperspace-server.jar"
+  :profiles {:uberjar {:resource-paths ["swagger-ui"]
+                       :aot :all}
+             :dev {:dependencies [[javax.servlet/servlet-api "2.5"]]
+                   :plugins [[lein-ring "0.8.11"]]}}
   :main hyperspace.main)

src/hyperspace/swagger/server.clj

@@ -0,0 +1,21 @@
+(ns hyperspace.swagger.server
+  (:require [compojure.api.sweet :refer :all]
+            [ring.util.http-response :refer :all]
+            [schema.core :as s]))
+
+(s/defschema Total {:total Long})
+
+(defapi app
+        (swagger-ui)
+        (swagger-docs
+          :title "Hyperspace API"
+          :description "Simple 2D game written in Clojure")
+
+        (swaggered "user"
+                   :description "user manipulation"
+                   (POST* "/register" []
+                          :return String
+                          :query-params [login :- String
+                                         password :- String]
+                          :summary "register user"
+                          (ok "Not implemented"))))