Mercurial > laserkard
comparison server.clj @ 71:ad52bd1a084b laserkard
Now there is no HTML whatsoever\!
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Tue, 22 Jun 2010 22:42:11 -0400 |
parents | 751fb9fd445b |
children | 874a6a2c28cf |
comparison
equal
deleted
inserted
replaced
70:751fb9fd445b | 71:ad52bd1a084b |
---|---|
1 (ns laserkard.server | 1 (ns laserkard.server |
2 (:use (compojure.http request servlet session routes) | 2 (:use (compojure.http request servlet session routes) |
3 (compojure.server jetty) | 3 (compojure.server jetty) |
4 (compojure control))) | 4 (compojure control) |
5 (laserkard buy-temp) | |
6 | |
7 )) | |
5 | 8 |
6 (defroutes example | 9 (defroutes example |
7 (GET "/index.clj" [] "<h1> hello, connie, good to meet you</h1>")) | 10 (GET "/index.clj" [] "<h1> hello, connie, good to meet you</h1>") |
11 (GET "/buy-temp.clj" [] (buy-gen)) | |
12 ) | |
13 | |
14 | |
8 | 15 |
9 (defserver laserkard-server | 16 (defserver laserkard-server |
10 {:port 9000 :host "localhost"} | 17 {:port 9000 :host "localhost"} |
11 "/*" (servlet example)) | 18 "/*" (servlet example)) |
12 | 19 |