Add logging and split clj/cljs dependencies properly

This commit is contained in:
heyarne 2020-05-03 14:39:31 +02:00
commit 73c14a8d0a
3 changed files with 37 additions and 14 deletions

View file

@ -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)