24 lines
667 B
Clojure
24 lines
667 B
Clojure
(ns luduverse.handler
|
|
(:require [compojure.core :refer :all]
|
|
[compojure.route :as route]
|
|
[noir.util.middleware :as middleware]
|
|
[luduverse.pages :as pages]
|
|
[luduverse.ld-images :as images]))
|
|
|
|
(defroutes core-routes
|
|
(route/resources "/")
|
|
(GET "/" [] (pages/front-page))
|
|
(route/not-found "404, sorry."))
|
|
|
|
(defn init []
|
|
; Create the image resource path if it is missing
|
|
(if (not (fs/exists? (images/base-path))) (fs/mkdirs (images/base-path))))
|
|
|
|
(defn destroy [])
|
|
|
|
(def app (middleware/app-handler
|
|
[core-routes]
|
|
:middleware []
|
|
:access-rules []
|
|
:formats [:json-kw :edn]))
|