rlm@69: (ns laserkard.server
rlm@69:   (:use compojure.core
rlm@69: 	ring.adapter.jetty)
rlm@69:   (:require [compojure.route :as route]))
rlm@69: 
rlm@69: (defroutes example
rlm@69:   (GET "/index.clj" [] "<h1>Hello World Wide Web!</h1>")
rlm@69:   (route/not-found "Page not found"))
rlm@69: 
rlm@69: (defn serve []
rlm@69:   (run-jetty example {:port 9000}))
rlm@69: 
rlm@69: 
rlm@69: 
rlm@69: