server.clj

website.git · Tickets

website.git > main > 105221d > files / src / dev / grahp / website / server.clj

(ns dev.grahp.website.server
  (:require
   [dev.grahp.website.middleware :refer [wrap-errors]]
   [dev.grahp.website.path :as path]
   [ring.adapter.jetty :refer [run-jetty]]
   [ring.middleware.file :refer [wrap-file]]
   [ring.middleware.resource :refer [wrap-resource]]))

(defn handler
  "Handles an HTTP request."
  [request]
  {:status 200
   :headers {"Content-Type" "text/html"}
   :body "Hello World"})

(defn main [{}]
  (run-jetty
   (-> #'handler
       (wrap-file "/srv/website/files" {:index-files? false})
       (wrap-resource "files")
       (path/wrap-path)
       (wrap-errors))
   {:port 8000
    :host "127.0.0.1"}))