22 lines
570 B
Clojure
22 lines
570 B
Clojure
(ns shapey-shifty.routes.home
|
|
(:require
|
|
[shapey-shifty.layout :as layout]
|
|
[clojure.java.io :as io]
|
|
[shapey-shifty.middleware :as middleware]
|
|
[ring.util.response]
|
|
[ring.util.http-response :as response]))
|
|
|
|
(defn home-page [request]
|
|
(layout/render request "home.html" {:docs (-> "docs/docs.md" io/resource slurp)}))
|
|
|
|
(defn about-page [request]
|
|
(layout/render request "about.html"))
|
|
|
|
(defn home-routes []
|
|
[""
|
|
{:middleware [middleware/wrap-csrf
|
|
middleware/wrap-formats]}
|
|
["/" {:get home-page}]
|
|
["/about" {:get about-page}]])
|
|
|