Mercurial > laserkard

view 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
line wrap: on
line source
     1 (ns laserkard.server



     2   (:use (compojure.http request servlet session routes)



     3 	(compojure.server jetty)



     4 	(compojure control)



     5 	(laserkard buy-temp faq)



     6 



     7 ))



     8 



     9 (defroutes example



    10   (GET "/index.clj" [] "<h1> hello, connie, good to meet you</h1>")



    11   (GET "/buy-temp.clj" [] (buy-gen))



    12   (GET "/faq.clj" [] (faq))



    13 )



    14 



    15 



    16 



    17 (defserver laserkard-server



    18   {:port 9000 :host "localhost"}



    19   "/*" (servlet example))



    20 



    21 



    22 					;adasdas



    23 



    24 ;asdas



    25 



    26 



    27