From 9d556a9a1ae3172584fb12eb9932cb08c3ab44a0 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Wed, 9 Nov 2011 15:13:11 +0100
Subject: Remove example pages.

---
 src/mulk/benki/main.clj | 20 --------------------
 1 file changed, 20 deletions(-)

(limited to 'src')

diff --git a/src/mulk/benki/main.clj b/src/mulk/benki/main.clj
index 6be5007..40c07cc 100644
--- a/src/mulk/benki/main.clj
+++ b/src/mulk/benki/main.clj
@@ -28,26 +28,6 @@
   )
 
 
-(defpage "/welcome" []
-  "<h1>Hello World</h1>
-
-  <p>Hi!</p>")
-
-(defpage "/hello" {name :name}
-  (layout
-   [:h1 "Greeting"]
-   [:p (fmt nil "Hi~@[ ~A~]!" name)]))
-
-(defpage "/journal/:id" {id :id}
-  (layout
-   [:h1 "Journal Entry #" id]
-   [:p "Bla bla bla."]))
-
-(defpage "/journal" {}
-  (layout
-   [:h1 "Journal"]))
-
-
 (defn -main [& args]
   (loop []
     (Thread/sleep 1000000)
-- 
cgit v1.2.3