Mercurial > rlm
annotate src/rlm/server_dice.clj @ 0:78a630e650d2
initial import
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Tue, 18 Oct 2011 00:57:08 -0700 |
| parents | |
| children |
| rev | line source |
|---|---|
| rlm@0 | 1 (ns laserkard.server |
| rlm@0 | 2 (:use |
| rlm@0 | 3 [compojure core] |
| rlm@0 | 4 [ring.adapter jetty] |
| rlm@0 | 5 [laserkard buy-temp faq]) |
| rlm@0 | 6 ) |
| rlm@0 | 7 |
| rlm@0 | 8 (defroutes laserkard |
| rlm@0 | 9 (GET "/index.clj" [] "<h1> hello, connie, good to meet you</h1>") |
| rlm@0 | 10 (GET "/buy-temp.clj" [] (buy-gen)) |
| rlm@0 | 11 (GET "/faq.clj" [] (faq)) |
| rlm@0 | 12 ) |
| rlm@0 | 13 |
| rlm@0 | 14 (defn serve [] |
| rlm@0 | 15 (future |
| rlm@0 | 16 (run-jetty (var laserkard.server/laserkard) {:port 9000 :host "localhost"}))) |