Mercurial > laserkard

annotate server.clj @ 69:dd97a10c782e laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added access.log and error.log to switch to lighttpd.
author Robert McIntyre <rlm@mit.edu>
date Tue, 22 Jun 2010 13:37:30 -0400
parents
children 751fb9fd445b
rev   line source
rlm@69 1 (ns laserkard.server
rlm@69 2 (:use compojure.core
rlm@69 3 ring.adapter.jetty)
rlm@69 4 (:require [compojure.route :as route]))
rlm@69 5
rlm@69 6 (defroutes example
rlm@69 7 (GET "/index.clj" [] "<h1>Hello World Wide Web!</h1>")
rlm@69 8 (route/not-found "Page not found"))
rlm@69 9
rlm@69 10 (defn serve []
rlm@69 11 (run-jetty example {:port 9000}))
rlm@69 12
rlm@69 13
rlm@69 14
rlm@69 15