2013-09-28 10:40:54 +02:00
|
|
|
(ns ldview.routes.home
|
|
|
|
(:use compojure.core)
|
|
|
|
(:require [ldview.views.layout :as layout]
|
|
|
|
[ldview.util :as util]))
|
|
|
|
|
2013-09-28 11:35:23 +02:00
|
|
|
; Just for now ...
|
|
|
|
(defn waiting-page []
|
|
|
|
(layout/render "waiting.html"))
|
|
|
|
|
2013-09-28 10:40:54 +02:00
|
|
|
(defn home-page []
|
|
|
|
(layout/render
|
|
|
|
"home.html" {:content (util/md->html "/md/docs.md")}))
|
|
|
|
|
|
|
|
(defroutes home-routes
|
2013-09-28 11:35:23 +02:00
|
|
|
(GET "/" [] (waiting-page)))
|