Mercurial > laserkard

     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 

    23 

    24 

    25
author	Robert McIntyre <rlm@mit.edu>
date	Sun, 25 Jul 2010 01:33:22 -0400
parents	874a6a2c28cf
children	5b0753c6f34d