Mercurial > rlm

diff 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 diff
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/rlm/server_dice.clj	Tue Oct 18 00:57:08 2011 -0700
     1.3 @@ -0,0 +1,16 @@
     1.4 +(ns laserkard.server
     1.5 +  (:use
     1.6 +   [compojure core]
     1.7 +   [ring.adapter jetty]
     1.8 +   [laserkard buy-temp faq])
     1.9 +  )
    1.10 +
    1.11 +(defroutes laserkard
    1.12 +  (GET "/index.clj" [] "<h1> hello, connie, good to meet you</h1>")
    1.13 +  (GET "/buy-temp.clj" [] (buy-gen))
    1.14 +  (GET "/faq.clj" [] (faq))
    1.15 +)
    1.16 +
    1.17 +(defn serve []
    1.18 +  (future
    1.19 +   (run-jetty (var laserkard.server/laserkard) {:port 9000 :host "localhost"})))