1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/server.clj	Tue Jun 22 13:37:30 2010 -0400
     1.3 @@ -0,0 +1,15 @@
     1.4 +(ns laserkard.server
     1.5 +  (:use compojure.core
     1.6 +	ring.adapter.jetty)
     1.7 +  (:require [compojure.route :as route]))
     1.8 +
     1.9 +(defroutes example
    1.10 +  (GET "/index.clj" [] "<h1>Hello World Wide Web!</h1>")
    1.11 +  (route/not-found "Page not found"))
    1.12 +
    1.13 +(defn serve []
    1.14 +  (run-jetty example {:port 9000}))
    1.15 +
    1.16 +
    1.17 +
    1.18 +