gistfile1.clj

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

(defn set-session-var [session]
  (if (:my-var session)
    {:body "Session variable already set"}
    {:body "Nothing in session, setting the var" 
     :session (assoc session :my-var "foo")}))

(defroutes sessiontest-routes
  (ANY "/" {session :session} (set-session-var session))
  (route/not-found "Page not found"))

(def sessiontest-app
  (-> sessiontest-routes
      session/wrap-session))

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