From 9ca63b545b0269770c4e09f59cafbba1dace71fd Mon Sep 17 00:00:00 2001
From: Tommi Reiman <tommi@iki.fi>
Date: Fri, 31 Aug 2018 10:56:56 +0300
Subject: [PATCH] wip

---
 examples/pedestal/src/example/server.clj | 45 +++++++++++++++---------
 1 file changed, 28 insertions(+), 17 deletions(-)

diff --git a/examples/pedestal/src/example/server.clj b/examples/pedestal/src/example/server.clj
index c665e2ba..05e55749 100644
--- a/examples/pedestal/src/example/server.clj
+++ b/examples/pedestal/src/example/server.clj
@@ -1,7 +1,8 @@
 (ns example.server
-  (:require [io.pedestal.http :as http]
+  (:require [io.pedestal.http]
+            [clojure.core.async :as a]
             [reitit.pedestal :as pedestal]
-            [reitit.http :as reitit-http]
+            [reitit.http :as http]
             [reitit.ring :as ring]))
 
 (defn interceptor [x]
@@ -10,18 +11,27 @@
 
 (def routing-interceptor
   (pedestal/routing-interceptor
-    (reitit-http/router
+    (http/router
       ["/api"
        {:interceptors [[interceptor :api]
                        [interceptor :apa]]}
 
-       ["/ping"
-        {:interceptors [[interceptor :ping]]
+       ["/sync"
+        {:interceptors [[interceptor :sync]]
          :get {:interceptors [[interceptor :get]]
                :handler (fn [_]
                           (println "handler")
                           {:status 200,
-                           :body "pong"})}}]]
+                           :body "pong"})}}]
+
+       ["/async"
+        {:interceptors [[interceptor :async]]
+         :get {:interceptors [[interceptor :get]]
+               :handler (fn [_]
+                          (a/go
+                            (println "handler")
+                            {:status 200,
+                             :body "pong"}))}}]]
       {:data {:interceptors [[interceptor :router]]}})
     (ring/create-default-handler)
     {:interceptors [[interceptor :top]]}))
@@ -30,21 +40,22 @@
 
 (defn start []
   (when @server
-    (http/stop @server)
+    (io.pedestal.http/stop @server)
     (println "server stopped"))
   (-> {:env :prod
-       ::http/routes []
-       ::http/resource-path "/public"
-       ::http/type :jetty
-       ::http/port 3000}
+       :io.pedestal.http/routes []
+       :io.pedestal.http/resource-path "/public"
+       :io.pedestal.http/type :jetty
+       :io.pedestal.http/port 3000}
       (merge {:env :dev
-              ::http/join? false
-              ::http/allowed-origins {:creds true :allowed-origins (constantly true)}})
+              :io.pedestal.http/join? false
+              :io.pedestal.http/allowed-origins {:creds true :allowed-origins (constantly true)}})
       (pedestal/default-interceptors routing-interceptor)
-      http/dev-interceptors
-      http/create-server
-      http/start
+      io.pedestal.http/dev-interceptors
+      io.pedestal.http/create-server
+      io.pedestal.http/start
       (->> (reset! server)))
   (println "server running in port 3000"))
 
-(start)
+(comment
+  (start))