Mercurial > laserkard

annotate server.clj @ 70:751fb9fd445b laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
finally got a lisp server yay
author Robert McIntyre <rlm@mit.edu>
date Tue, 22 Jun 2010 20:15:19 -0400
parents dd97a10c782e
children ad52bd1a084b
rev   line source
rlm@69 1 (ns laserkard.server
rlm@70 2 (:use (compojure.http request servlet session routes)
rlm@70 3 (compojure.server jetty)
rlm@70 4 (compojure control)))
rlm@69 5
rlm@69 6 (defroutes example
rlm@70 7 (GET "/index.clj" [] "<h1> hello, connie, good to meet you</h1>"))
rlm@69 8
rlm@70 9 (defserver laserkard-server
rlm@70 10 {:port 9000 :host "localhost"}
rlm@70 11 "/*" (servlet example))
rlm@69 12
rlm@69 13
rlm@69 14
rlm@69 15
rlm@70 16
rlm@70 17