ring-simplified.clj

(defn auth-middleware [req]
  (let [auth-headers (get-in req [:headers :auth])]
    (assoc req :user
      (if (= auth-headers "secret")
         {:name "Secret User"}
         nil))))

(defn random-middleware [req]
  (assoc req :random "LOL"))



(defn controller [req]
  (let [q (get-in req [:query-params :q])
        user (get-in req [:user :name])
        hello (str "Hello! " user " your name should be " user)]
    {:status 201
     :headers {:content-type "application/json"}
     :body {:query hello :random (:random req)}}))



(def example-request {:method "POST"
                      :path "/do/something"
                      :query-params {:q "Teemu"}
                      :headers {:auth "secret"}
                      :body ""})


(-> example-request
  (auth-middleware)
  (random-middleware)
  (controller))