Mercurial > laserkard

comparison server.clj @ 70:751fb9fd445b laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
finally got a lisp server yay
author Robert McIntyre <rlm@mit.edu>
date Tue, 22 Jun 2010 20:15:19 -0400
parents dd97a10c782e
children ad52bd1a084b
comparison
equal deleted inserted replaced
69:dd97a10c782e 70:751fb9fd445b
1 (ns laserkard.server 1 (ns laserkard.server
2 (:use compojure.core 2 (:use (compojure.http request servlet session routes)
3 ring.adapter.jetty) 3 (compojure.server jetty)
4 (:require [compojure.route :as route])) 4 (compojure control)))
5 5
6 (defroutes example 6 (defroutes example
7 (GET "/index.clj" [] "<h1>Hello World Wide Web!</h1>") 7 (GET "/index.clj" [] "<h1> hello, connie, good to meet you</h1>"))
8 (route/not-found "Page not found"))
9 8
10 (defn serve [] 9 (defserver laserkard-server
11 (run-jetty example {:port 9000})) 10 {:port 9000 :host "localhost"}
11 "/*" (servlet example))
12 12
13 13
14 14
15 15
16
17