Mercurial > laserkard

annotate temp342423/server.clj @ 102:8ed3394e6b73 laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
wrote comment-killer
author Robert McIntyre <rlm@mit.edu>
date Tue, 27 Jul 2010 22:23:13 -0400
parents
children
rev   line source
rlm@102 1 (ns laserkard.server
rlm@102 2 (:use (compojure.http request servlet session routes)
rlm@102 3 (compojure.server jetty)
rlm@102 4 (compojure control)
rlm@102 5 (laserkard buy-temp faq)
rlm@102 6
rlm@102 7 ))
rlm@102 8
rlm@102 9 (defroutes example
rlm@102 10 (GET "/index.clj" [] "<h1> hello, connie, good to meet you</h1>")
rlm@102 11 (GET "/buy-temp.clj" [] (buy-gen))
rlm@102 12 (GET "/faq.clj" [] (faq))
rlm@102 13 )
rlm@102 14
rlm@102 15
rlm@102 16
rlm@102 17 (defserver laserkard-server
rlm@102 18 {:port 9000 :host "localhost"}
rlm@102 19 "/*" (servlet example))
rlm@102 20
rlm@102 21
rlm@102 22 ;adasdas
rlm@102 23
rlm@102 24 ;asdas
rlm@102 25
rlm@102 26
rlm@102 27