Mercurial > laserkard

annotate server.clj @ 77:bf68c9ea9528 laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
saving
author Robert McIntyre <rlm@mit.edu>
date Thu, 22 Jul 2010 09:30:45 -0400
parents 874a6a2c28cf
children 5b0753c6f34d
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@71 4 (compojure control)
rlm@75 5 (laserkard buy-temp faq)
rlm@71 6
rlm@71 7 ))
rlm@69 8
rlm@69 9 (defroutes example
rlm@71 10 (GET "/index.clj" [] "<h1> hello, connie, good to meet you</h1>")
rlm@75 11 (GET "/buy-temp.clj" [] (buy-gen))
rlm@75 12 (GET "/faq.clj" [] (faq))
rlm@71 13 )
rlm@71 14
rlm@71 15
rlm@69 16
rlm@70 17 (defserver laserkard-server
rlm@70 18 {:port 9000 :host "localhost"}
rlm@70 19 "/*" (servlet example))
rlm@69 20
rlm@69 21
rlm@69 22
rlm@69 23
rlm@70 24
rlm@70 25