18 lines
447 B
Clojure
18 lines
447 B
Clojure
|
(ns mailhead.routes.home
|
||
|
|
(:require [mailhead.layout :as layout]
|
||
|
|
[compojure.core :refer [defroutes GET]]
|
||
|
|
[ring.util.http-response :refer [ok]]
|
||
|
|
[clojure.java.io :as io]))
|
||
|
|
|
||
|
|
(defn home-page []
|
||
|
|
(layout/render
|
||
|
|
"home.html" {:docs (-> "docs/docs.md" io/resource slurp)}))
|
||
|
|
|
||
|
|
(defn about-page []
|
||
|
|
(layout/render "about.html"))
|
||
|
|
|
||
|
|
(defroutes home-routes
|
||
|
|
(GET "/" [] (home-page))
|
||
|
|
(GET "/about" [] (about-page)))
|
||
|
|
|