rlm@69: (ns laserkard.server
rlm@106:   (:use
rlm@106:    [compojure core]
rlm@106:    [ring.adapter jetty]
rlm@106:    [laserkard buy-temp faq])
rlm@106:   )
rlm@71: 
rlm@106: (defroutes laserkard
rlm@71:   (GET "/index.clj" [] "<h1> hello, connie, good to meet you</h1>")
rlm@75:   (GET "/buy-temp.clj" [] (buy-gen))
rlm@75:   (GET "/faq.clj" [] (faq))
rlm@71: )
rlm@71: 
rlm@106: (defn serve []
rlm@106:   (future
rlm@106:    (run-jetty (var laserkard.server/laserkard) {:port 9000 :host "localhost"})))
rlm@71: 
rlm@69: 
rlm@106: ;(defserver laserkard-server
rlm@106: ;  {:port 9000 :host "localhost"}
rlm@106: ;  "/*" (servlet example))
rlm@69: 
rlm@69: 
rlm@69: 
rlm@69: 
rlm@70: 
rlm@70: