gistfile1.clj

(ns comp3.core
  (:use compojure.core)
  (:require [compojure.route :as route]
            [ring.adapter.jetty :as jetty]))

(defn simple-logging-middleware [app]
  (fn [req]
    (println req)
    (app req)))

(defroutes middleware-routes
  (ANY "/" {} {:body "Hello Compojure!"})
  (route/not-found "Page not found"))

(def middleware-app
  (-> middleware-routes
    simple-logging-middleware))

(defn start-server []
  (future (jetty/run-jetty (var middleware-app) {:port 8081})))