gistfile1.clj

(defn init-app-engine
 "Initialize the app engine services."
 ([] (init-app-engine "/tmp"))
 ([directory]
    (let [proxy-factory (ApiProxyLocalFactory.)
          environment (proxy [LocalServerEnvironment]
			  []
			(getAppDir [] (java.io.File. directory)))
          api-proxy (.create proxy-factory environment)]
      (ApiProxy/setDelegate api-proxy))))

(def *server* nil)
(def *application* my-app)
(defn start-server
 "Start the application server."
 []
 (dosync
  (init-app-engine)
  (def *server* (run-jetty *application* {:port 8080}))))

(start-server)

;; eval this to stop the server, then you can start it again!
;; (.stop *server*)