core.clj

(ns sesscookie.core
  (:use compojure.core
        ring.adapter.jetty
        ring.middleware.session
        ring.middleware.session.cookie))

(defn write-index [req]
  {:status 200
   :body (str ":demo-session " (get-in req [:session :demo-session]) "\n"
              ":demo-cookies " (get-in req [:cookies "demo-cookies"]))})

(defn write-cookie [req]
  {:status 200
   :body "demo-cookies set to: cookie"
   :cookies {:demo-cookies "cookie"}})

(defn write-both [req]
  {:status 200
   :body (str "demo-cookies set to: both" "\n"
              "demo-session set to: both" "\n")
   :cookies {:demo-cookies "both"}
   :session {:demo-session "both"}})

(defroutes site
  (GET "/" [] write-index)
  (GET "/cookie" [] write-cookie)
  (GET "/both" [] write-both))

(wrap! site (:session {:store (cookie-store)}))

(defn start-server
  [] (future (run-jetty (var site) {:port 8080})))