Mercurial > laserkard
annotate server.clj @ 75:874a6a2c28cf laserkard
session with nick. redisigned faq page
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Tue, 29 Jun 2010 15:36:30 -0400 |
| parents | ad52bd1a084b |
| children | 5b0753c6f34d |
| rev | line source |
|---|---|
| rlm@69 | 1 (ns laserkard.server |
| rlm@70 | 2 (:use (compojure.http request servlet session routes) |
| rlm@70 | 3 (compojure.server jetty) |
| rlm@71 | 4 (compojure control) |
| rlm@75 | 5 (laserkard buy-temp faq) |
| rlm@71 | 6 |
| rlm@71 | 7 )) |
| rlm@69 | 8 |
| rlm@69 | 9 (defroutes example |
| rlm@71 | 10 (GET "/index.clj" [] "<h1> hello, connie, good to meet you</h1>") |
| rlm@75 | 11 (GET "/buy-temp.clj" [] (buy-gen)) |
| rlm@75 | 12 (GET "/faq.clj" [] (faq)) |
| rlm@71 | 13 ) |
| rlm@71 | 14 |
| rlm@71 | 15 |
| rlm@69 | 16 |
| rlm@70 | 17 (defserver laserkard-server |
| rlm@70 | 18 {:port 9000 :host "localhost"} |
| rlm@70 | 19 "/*" (servlet example)) |
| rlm@69 | 20 |
| rlm@69 | 21 |
| rlm@69 | 22 |
| rlm@69 | 23 |
| rlm@70 | 24 |
| rlm@70 | 25 |