16 lines
363 B
Clojure
16 lines
363 B
Clojure
|
(ns ldview.routes.home
|
||
|
(:use compojure.core)
|
||
|
(:require [ldview.views.layout :as layout]
|
||
|
[ldview.util :as util]))
|
||
|
|
||
|
(defn home-page []
|
||
|
(layout/render
|
||
|
"home.html" {:content (util/md->html "/md/docs.md")}))
|
||
|
|
||
|
(defn about-page []
|
||
|
(layout/render "about.html"))
|
||
|
|
||
|
(defroutes home-routes
|
||
|
(GET "/" [] (home-page))
|
||
|
(GET "/about" [] (about-page)))
|