Simple Ring Demo with Separate Modules and GET/POST forms

simple-modular-ring.core.clj

(ns simple-modular-ring.core
  (require
    [ring.adapter.jetty :refer [run-jetty]]
    [simple-modular-ring.handler :as h]
    [simple-modular-ring.middleware :as m]
    ))

(def app
  (-> h/post-form
      m/logger
      m/req-res-displayer
      m/wrap-params))

(defonce server 
  (run-jetty #'app {:port 8080 :join? false}))

simple-modular-ring.handler.clj

(ns simple-modular-ring.handler
  (require
    [ring.util.response :as res]
    ))

(defn plain-text [req]
  (-> (res/response "Hello Goodbye")
      (res/content-type "text/plain")))

(defn html [req]
  (-> (res/response 
       "<div>
          <h1>Hello World!</h1>
          <p>Some random bit of text</p>
        </div>")
      (res/content-type "text/html")))

(defn not-found [req]
  (-> (res/not-found "<b>Not found!</b>")
      (res/content-type "text/html")))

(defn redirect [req]
  (res/redirect "http://www.google.com"))

(defn get-form [req]
  (-> (res/response 
       "<div>
          <h1>Hello GET Form!</h1>
          <form method=\"get\" action=\"form-submit\">
           <input type=\"text\" name=\"name\" />
           <input type=\"submit\" value\"submit\" />
          </form>
        </div>")
      (res/content-type "text/html")))

(defn post-form [req]
  (-> (res/response 
       "<div>
          <h1>Hello POST Form!</h1>
          <form method=\"post\" action=\"form-submit\">
           <input type=\"text\" name=\"name\" />
           <input type=\"submit\" value\"submit\" />
          </form>
        </div>")
      (res/content-type "text/html")))

simple-modular-ring.middleware.clj

(ns simple-modular-ring.middleware
  (require
    [ring.middleware.params :as mparams]
    ))

(defonce log-atom (atom []))
(defn logger [handler]
  (fn [req]
    (let [res (handler req)]
      (swap! log-atom #(conj % {:request req :response res}))
      res)))

(defn req-res-displayer [handler]
  (fn [req]
    (let [res (handler req)]
      (println "\nRequest:")
      (clojure.pprint/pprint req)
      (println "\nResponse:")
      (clojure.pprint/pprint res)
      res)))

(def wrap-params 
  mparams/wrap-params)

simple-modular-ring.project.clj

(defproject simple-modular-ring "0.1.0-SNAPSHOT"
  :dependencies [[org.clojure/clojure "1.8.0"]
                 [ring "1.5.0"]])