update example

examples/ring-example/README.md

@@ -6,15 +6,16 @@ A Sample project with ring.
 
 ```clj
 > lein repl
-
+(start)
-(require '[example.server :as server])
-
-(server/restart)
 ```
 
 To test the endpoints using [httpie](https://httpie.org/):
 
 ```bash
+# Plain
+http GET :3000/plain/plus x==1 y==20
+http POST :3000/plain/plus x:=1 y:=20
+
 # Schema
 http GET :3000/schema/plus x==1 y==20
 http POST :3000/schema/plus x:=1 y:=20

examples/ring-example/project.clj

@@ -2,5 +2,5 @@
   :description "Reitit Ring App"
   :dependencies [[org.clojure/clojure "1.9.0"]
                  [ring "1.6.3"]
-                 [metosin/muuntaja "0.4.1"]
+                 [metosin/reitit "0.2.0-SNAPSHOT"]]
-                 [metosin/reitit "0.2.0-SNAPSHOT"]])
+  :repl-options {:init-ns example.server})

examples/ring-example/src/example/dspec.clj

@@ -3,8 +3,7 @@
 
 (def routes
   ["/dspec" {:coercion reitit.coercion.spec/coercion}
-   ["/plus" {:name ::plus
+   ["/plus" {:responses {200 {:body {:total int?}}}
-             :responses {200 {:body {:total int?}}}
              :get {:summary "plus with query-params"
                    :parameters {:query {:x int?, :y int?}}
                    :handler (fn [{{{:keys [x y]} :query} :parameters}]

examples/ring-example/src/example/plain.clj

@@ -0,0 +1,10 @@
+(ns example.plain)
+
+(def routes
+  ["/plain"
+   ["/plus" {:get (fn [{{:strs [x y]} :query-params :as req}]
+                    {:status 200
+                     :body {:total (+ (Long/parseLong x) (Long/parseLong y))}})
+             :post (fn [{{:keys [x y]} :body-params}]
+                     {:status 200
+                      :body {:total (+ x y)}})}]])

examples/ring-example/src/example/schema.clj

@@ -4,8 +4,7 @@
 
 (def routes
   ["/schema" {:coercion reitit.coercion.schema/coercion}
-   ["/plus" {:name ::plus
+   ["/plus" {:responses {200 {:body {:total s/Int}}}
-             :responses {200 {:body {:total s/Int}}}
              :get {:summary "plus with query-params"
                    :parameters {:query {:x s/Int, :y s/Int}}
                    :handler (fn [{{{:keys [x y]} :query} :parameters}]

examples/ring-example/src/example/server.clj

@@ -1,33 +1,33 @@
 (ns example.server
   (:require [ring.adapter.jetty :as jetty]
-            [ring.middleware.params]
+            [ring.middleware.params :as params]
-            [muuntaja.middleware]
+            [reitit.ring.middleware.muuntaja :as muuntaja]
-            [reitit.ring :as ring]
+            [muuntaja.core :as m]
             [reitit.ring.coercion :as coercion]
+            [reitit.ring :as ring]
+            [example.plain]
             [example.dspec]
             [example.schema]
             [example.spec]))
 
-(defonce ^:private server (atom nil))
-
 (def app
   (ring/ring-handler
     (ring/router
-      [example.schema/routes
+      [example.plain/routes
+       example.schema/routes
        example.dspec/routes
        example.spec/routes]
-      {:data {:middleware [ring.middleware.params/wrap-params
+      {:data {:muuntaja m/instance
-                           muuntaja.middleware/wrap-format
+      	      :middleware [params/wrap-params
+                           muuntaja/format-middleware
                            coercion/coerce-exceptions-middleware
                            coercion/coerce-request-middleware
-                           coercion/coerce-response-middleware]}})))
+                           coercion/coerce-response-middleware]}})
+    (ring/create-default-handler)))
 
-(defn restart []
+(defn start []
-  (swap! server (fn [x]
+  (jetty/run-jetty #'app {:port 3000, :join? false})
-                  (when x (.stop x))
-                  (jetty/run-jetty
-                    app
-                    {:port 3000, :join? false})))
   (println "server running in port 3000"))
 
-(restart)
+(comment
+  (start))

examples/ring-example/src/example/spec.clj

@@ -10,8 +10,7 @@
 
 (def routes
   ["/spec" {:coercion reitit.coercion.spec/coercion}
-   ["/plus" {:name ::plus
+   ["/plus" {:responses {200 {:body (s/keys :req-un [::total])}}
-             :responses {200 {:body (s/keys :req-un [::total])}}
              :get {:summary "plus with query-params"
                    :parameters {:query (s/keys :req-un [::x ::y])}
                    :handler (fn [{{{:keys [x y]} :query} :parameters}]