Context path in Compojure

[Shantanu Kumar]

Hi,

How can I access the context path when using Compojure? I need it for
generating URLs in the view template. It works fine when using with
"lein-ring" but when deployed in a WAR it needs to be prefixed with
the context path.

With lein-ring:
/path/to/static-file.png

In WAR:
/context/path/to/static-file.png

Regards,
Shantanu

[David Jagoe]

This may help:

(ns clj-rheo.middleware.servlet-context
(:use [clj-rheo.util.core :only [get-context-path]]))

(defn wrap-context
"Removes the deployed servlet context from a URI when running as a
deployed web application"
[handler]
(fn [request]
(if-let [servlet-req (:servlet-request request)]
(let [context (get-context-path servlet-req)
uri (:uri request)]
(if (.startsWith uri context)
(handler (assoc request :uri
(.substring uri (.length context))))
(handler request)))
(handler request))))

[James Reeves]

lein-ring adds :context and :path-info keys to the request map.

- James