Add an example of internationalization within a Ring/Compojure web application using the Spring mechanisms.

Author: lispnik

resources/applicationContext.xml

@@ -0,0 +1,7 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<beans xmlns="http://www.springframework.org/schema/beans"
+       xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+       xsi:schemaLocation="http://www.springframework.org/schema/beans http://www.springframework.org/schema/beans/spring-beans.xsd">
+  <import resource="security.xml"/>
+  <import resource="messages.xml"/>
+</beans>

resources/messages.properties

@@ -0,0 +1 @@
+greeting=Hello to you, {0}

resources/messages.xml

@@ -0,0 +1,9 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<beans xmlns="http://www.springframework.org/schema/beans"
+       xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+       xmlns:p="http://www.springframework.org/schema/p"
+       xsi:schemaLocation="http://www.springframework.org/schema/beans http://www.springframework.org/schema/beans/spring-beans.xsd">
+  <bean name="messageSource"
+        class="org.springframework.context.support.ResourceBundleMessageSource"
+        p:basename="messages"/>
+</beans>

src/ring_spring_security/core.clj

@@ -12,16 +12,19 @@
   (:use hiccup.core)
   (:use hiccup.page-helpers))
 
-(declare index-html example-html)
+(declare index-html example-html messages-html)
 
 (defroutes main-routes
   (GET "/"      req (index-html req))
   (GET "/admin" req (example-html req))
   (GET "/user"  req (example-html req))
   (GET "/other" req (example-html req))
+  (GET "/messages" req (messages-html req))
   (route/resources "/")
   (route/not-found "Page not found"))
 
+;Some general utilities and wrappers
+
 (defn application-context
   ([req]
      (org.springframework.web.context.support.WebApplicationContextUtils/getWebApplicationContext
@@ -33,16 +36,30 @@
 (defn security-context []
   (org.springframework.security.core.context.SecurityContextHolder/getContext))
 
+(defn message [req key & args]
+  (let [context (application-context req)]
+    (.getMessage
+      context
+      (if (keyword? key) (name key) key)
+      (into-array java.lang.Object args)
+      (.getLocale (:servlet-request req)))))
+
 (defn wrap-reload-spring [app]
   "Reload the Spring application context on every HTTP request"
   (fn [req]
     (let [application-context (application-context req)]
       (.refresh application-context)
       (app req))))
 
+(defn wrap-dump [app]
+  (fn [req]
+    (println req)
+    (app req)))
+
 (def app
   (-> (handler/site main-routes)
-;      (wrap-reload-spring)
+      (wrap-reload-spring)
+      (wrap-dump)
       (wrap-reload '(ring-spring-security.core))
       (wrap-stacktrace)))
 
@@ -70,6 +87,12 @@
      [:li (link-to "/user" "/user")]
      [:li (link-to "/other" "/other")]]))
 
+(defn messages-html [req]
+  (layout
+    [:p "Here's some messages in your locale:"]
+    [:ul
+     [:li (escape-html (message req :greeting "asdf"))]]))
+
 (defn- boot-spring
   "Initialize a Jetty server for Spring and also Spring Security"
   ([server handler context-config-location]
@@ -94,7 +117,7 @@
     {:port 9090
      :join? join?
      :configurator (fn [server]
-                     (boot-spring server #'app "classpath:security.xml"))})]
+                     (boot-spring server #'app "classpath:applicationContext.xml"))})]
   ;this is a hack to get around the handler ring-adapter-jetty forces on us
   (doseq [handler (remove #(= (class %) org.mortbay.jetty.servlet.Context) (seq (.getHandlers server)))]
     (.removeHandler server handler))))