Как получить ServletContext в функции инициализации звонка

Question

Я использую Clojure + Ring для создания веб-приложения, работающего на Glassfish 3. Как получить доступ к переменной ServletContext в кольце init?

Answer 1

ServletContext, если таковой имеется, доступен на карте запроса. Мне было полезно посмотреть на значения :context, :servlet-context и :servlet-context-path. Вот небольшое связующее звено, которое я использую для определения пути:

(def ^:dynamic *app-context* nil) 

(defn wrap-context [handler] 
(fn [request] 
    (when-let [context (:context request)] 
    (logging/debug (str "Request with context " context))) 
    (when-let [pathdebug (:path-debug request)] 
    (logging/debug (str "Request with path-debug " pathdebug))) 
    (when-let [servlet-context (:servlet-context request)] 
    (logging/debug (str "Request with servlet-context " servlet-context))) 
    (when-let [servlet-context-path (:servlet-context-path request)] 
    (logging/debug (str "Request with servlet-context-path " servlet-context-path))) 
    (binding [*app-context* (str (:context request) "/")] 
    (logging/debug (str "Using appcontext " *app-context*)) 
    (-> request 
     handler)))) 

(defn url-in-context [url] 
    (str *app-context* url))