Add logging and split clj/cljs dependencies properly
This commit is contained in:
parent
5241cae418
commit
73c14a8d0a
3 changed files with 37 additions and 14 deletions
|
|
@ -1,24 +1,36 @@
|
|||
(ns heyarne.all-my-friends.server
|
||||
(:require [org.httpkit.server :as http]
|
||||
[compojure.core :as router]
|
||||
[compojure.route :as route])
|
||||
#_(:gen-class))
|
||||
[compojure.route :as route]
|
||||
[clojure.java.io :as io]
|
||||
[environ.core :refer [env]]
|
||||
[ring.logger :as logger])
|
||||
(:gen-class))
|
||||
|
||||
(router/defroutes app
|
||||
#_(router/GET "/" []
|
||||
{:status 200
|
||||
:body "Hello world"})
|
||||
(route/files "/")
|
||||
(router/POST "/upload" [req]
|
||||
(println "/upload" req)
|
||||
{:status 400})
|
||||
(router/GET "/" []
|
||||
(slurp (io/resource "public/index.html")))
|
||||
(route/resources "/")
|
||||
(route/not-found "Not found."))
|
||||
|
||||
(defonce server (atom nil))
|
||||
|
||||
(defn stop-server []
|
||||
(when-not (nil? @server)
|
||||
(println "Stopping server…")
|
||||
(@server :timeout 100)
|
||||
(reset! server nil)))
|
||||
|
||||
|
||||
(defn -main [& args]
|
||||
(reset! server (http/run-server #'app {:port 8081})))
|
||||
(let [port (env :port 8081)]
|
||||
(println "Starting server on port" port)
|
||||
(reset! server (-> #'app
|
||||
(logger/wrap-with-logger)
|
||||
(http/run-server {:port port})))))
|
||||
|
||||
#_(-main)
|
||||
#_(stop-server)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue