From 9d556a9a1ae3172584fb12eb9932cb08c3ab44a0 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard 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/mulk/benki/main.clj') 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" [] - "

Hello World

- -

Hi!

") - -(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