Mercurial > laserkard

comparison server.clj @ 71:ad52bd1a084b laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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