gistfile1.txt

(ns #^{:doc "An example program that uses Jetty 7 to serve HelloServlet"
       :author "Daniel Solano Gómez"}
  jetty-hello-demo
  (:import org.eclipse.jetty.server.Server
           org.eclipse.jetty.webapp.WebAppContext))

(defn- create-webapp []
  (doto (WebAppContext.)
    (.setContextPath "/")
    (.setWar "/path/to/blah.war")))

(defn- create-server []
  (doto (Server. 8081)
    (.setStopAtShutdown true)
    (.setHandler (create-webapp))))

(def jetty-server (create-server))
(.start jetty-server)