second drop of clojure-portlet (straight translation to clojure)

Author: martinlau

Diff for: pom.xml

@@ -11,6 +11,40 @@
 
     <build>
         <finalName>clojure-portlet</finalName>
+        <plugins>
+            <plugin>
+                <groupId>org.codehaus.mojo</groupId>
+                <artifactId>build-helper-maven-plugin</artifactId>
+                <version>1.7</version>
+                <executions>
+                    <execution>
+                        <id>add-source</id>
+                        <goals>
+                            <goal>add-source</goal>
+                        </goals>
+                        <configuration>
+                            <sources>
+                                <source>src/main/clojure</source>
+                            </sources>
+                        </configuration>
+                    </execution>
+                </executions>
+            </plugin>
+            <plugin>
+                <groupId>com.theoryinpractise</groupId>
+                <artifactId>clojure-maven-plugin</artifactId>
+                <version>1.3.10</version>
+                <extensions>true</extensions>
+                <executions>
+                    <execution>
+                        <id>compile</id>
+                        <goals>
+                            <goal>compile</goal>
+                        </goals>
+                    </execution>
+                </executions>
+            </plugin>
+        </plugins>
     </build>
 
     <dependencies>
@@ -20,6 +54,11 @@
             <version>2.0</version>
             <scope>provided</scope>
         </dependency>
+        <dependency>
+            <groupId>org.clojure</groupId>
+            <artifactId>clojure</artifactId>
+            <version>1.4.0</version>
+        </dependency>
     </dependencies>
 
 </project>

Diff for: src/main/clojure/au/com/permeance/clojure/clojure_portlet.clj

@@ -0,0 +1,21 @@
+(ns au.com.permeance.clojure.clojure-portlet)
+
+(gen-class
+  :name au.com.permeance.clojure.ClojurePortlet
+        :extends javax.portlet.GenericPortlet
+        :main false
+        :methods [[^{javax.portlet.ProcessAction {:name "clojure-action"}}
+                   processClojureAction [javax.portlet.ActionRequest javax.portlet.ActionResponse] void]
+
+                  [^{javax.portlet.RenderMode {:name "view"}}
+                   processClojureRender [javax.portlet.RenderRequest javax.portlet.RenderResponse] void]])
+
+(defn -processClojureAction [portlet request response]
+  (. response setRenderParameter "message" "An action occurred"))
+
+(defn -processClojureRender [portlet request response]
+  (let [message (or (. request getParameter "message") "Nothing happened")]
+    (. request setAttribute "message" message))
+  (let [context (. portlet getPortletContext)
+        dispatcher (. context getRequestDispatcher "/view.jsp")]
+    (. dispatcher include request response)))