server.clj

website.git · Tickets

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

(ns dev.grahp.website.server
  (:require
   [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"))
    {:port 8000
     :host "127.0.0.1"}))