From c90f76a4f83977f214c1630934e8959c122bd577 Mon Sep 17 00:00:00 2001
From: Graham Cox <graham@grahamcox.co.uk>
Date: Fri, 24 May 2019 17:24:47 +0100
Subject: [PATCH] Examples for Clojure Ring (#6881)

---
 clojure/ring/.gitignore        | 12 +++++++++
 clojure/ring/README.md         | 16 ++++++++++++
 clojure/ring/project.clj       |  8 ++++++
 clojure/ring/src/ring/core.clj | 48 ++++++++++++++++++++++++++++++++++
 4 files changed, 84 insertions(+)
 create mode 100644 clojure/ring/.gitignore
 create mode 100644 clojure/ring/README.md
 create mode 100644 clojure/ring/project.clj
 create mode 100644 clojure/ring/src/ring/core.clj

diff --git a/clojure/ring/.gitignore b/clojure/ring/.gitignore
new file mode 100644
index 0000000000..d18f225992
--- /dev/null
+++ b/clojure/ring/.gitignore
@@ -0,0 +1,12 @@
+/target
+/classes
+/checkouts
+profiles.clj
+pom.xml
+pom.xml.asc
+*.jar
+*.class
+/.lein-*
+/.nrepl-port
+.hgignore
+.hg/
diff --git a/clojure/ring/README.md b/clojure/ring/README.md
new file mode 100644
index 0000000000..3bc04ac129
--- /dev/null
+++ b/clojure/ring/README.md
@@ -0,0 +1,16 @@
+# Clojure Ring Examples
+
+This project acts as a set of examples for the Clojure Ring library.
+
+## Runing the examples
+
+The examples can all be run from the Leiningen REPL.
+
+Firstly, start the REPL with `lein repl`. Then the examples can be executed with:
+
+* `(run simple-handler)` - A simple handler that just echos a constant string to the client
+* `(run check-ip-handler)` - A handler that echos the clients IP Address back to them
+* `(run echo-handler)` - A handler that echos the value of the "input" parameter back
+* `(run request-count-handler)` - A handler with a session that tracks how many times this session has requested this handler
+
+In all cases, the handlers can be accessed on http://localhost:3000.
diff --git a/clojure/ring/project.clj b/clojure/ring/project.clj
new file mode 100644
index 0000000000..7f2fcc4263
--- /dev/null
+++ b/clojure/ring/project.clj
@@ -0,0 +1,8 @@
+(defproject baeldung-ring "0.1.0-SNAPSHOT"
+  :dependencies [[org.clojure/clojure "1.10.0"]
+                 [ring/ring-core "1.7.1"]
+                 [ring/ring-jetty-adapter "1.7.1"]
+                 [ring/ring-devel "1.7.1"]]
+  :plugins [[lein-ring "0.12.5"]]
+  :ring {:handler ring.core/simple-handler}
+  :repl-options {:init-ns ring.core})
diff --git a/clojure/ring/src/ring/core.clj b/clojure/ring/src/ring/core.clj
new file mode 100644
index 0000000000..a56e2f2bde
--- /dev/null
+++ b/clojure/ring/src/ring/core.clj
@@ -0,0 +1,48 @@
+(ns ring.core
+  (:use ring.adapter.jetty
+        [ring.middleware.content-type]
+        [ring.middleware.cookies]
+        [ring.middleware.params]
+        [ring.middleware.session]
+        [ring.middleware.session.cookie]
+        [ring.util.response]))
+
+;; Handler that just echos back the string "Hello World"
+(defn simple-handler [request]
+  {:status 200
+   :headers {"Content-Type" "text/plain"}
+   :body "Hello World"})
+
+;; Handler that echos back the clients IP Address
+;; This demonstrates building responses properly, and extracting values from the request
+(defn check-ip-handler [request]
+    (content-type
+        (response (:remote-addr request))
+        "text/plain"))
+
+;; Handler that echos back the incoming parameter "input"
+;; This demonstrates middleware chaining and accessing parameters
+(def echo-handler
+  (-> (fn [{params :params}]
+        (content-type
+          (response (get params "input"))
+          "text/plain"))
+      (wrap-params {:encoding "UTF-8"})
+  ))
+
+;; Handler that keeps track of how many times each session has accessed the service
+;; This demonstrates cookies and sessions
+(def request-count-handler
+  (-> (fn [{session :session}]
+        (let [count (:count session 0)
+              session (assoc session :count (inc count))]
+          (-> (response (str "You accessed this page " count " times."))
+              (assoc :session session))))
+      wrap-cookies
+      (wrap-session {:cookie-attrs {:max-age 3600}})
+  ))
+
+;; Run the provided handler on port 3000
+(defn run
+  [h]
+  (run-jetty h {:port 3000}))