init commit

src/ajet/www/core.clj

@@ -0,0 +1,31 @@
+(ns ajet.www.core
+  (:require
+   [compojure.core :refer [defroutes GET]]
+   [ring.adapter.jetty :refer [run-jetty]]
+   [ring.middleware.content-type :refer [wrap-content-type]]
+   [ring.middleware.not-modified :refer [wrap-not-modified]]
+   [ring.middleware.resource :refer [wrap-resource]]
+   [ring.util.response :refer [resource-response]])
+  (:gen-class))
+
+(defroutes approutes
+  (GET "/" [] (resource-response "public/index.html")))
+
+(def app
+  (-> #'approutes
+      (wrap-resource "public")
+      wrap-content-type
+      wrap-not-modified)) ;; files from resources/public are served
+
+(defn make-server [opts]
+  (run-jetty app (merge {:join? false, :port 80} opts)))
+
+(defn -main [& _args]
+  (make-server {}))
+
+(comment
+  (def server (make-server {}))
+  server
+  (. server stop)
+  (. server start))
+