Mercurial > rlm
comparison 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 |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:78a630e650d2 |
---|---|
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"}))) |