Mercurial > rlm

view src/rlm/server_dice.clj @ 0:78a630e650d2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
initial import
author Robert McIntyre <rlm@mit.edu>
date Tue, 18 Oct 2011 00:57:08 -0700
parents
children
line wrap: on
line source
     1 (ns laserkard.server



     2   (:use



     3    [compojure core]



     4    [ring.adapter jetty]



     5    [laserkard buy-temp faq])



     6   )



     7 



     8 (defroutes laserkard



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



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



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



    12 )



    13 



    14 (defn serve []



    15   (future



    16    (run-jetty (var laserkard.server/laserkard) {:port 9000 :host "localhost"})))