minimal ring session example

core.clj

(ns anillo.core
  (:require [ring.adapter.jetty :refer :all]
            [ring.middleware.session :refer :all]
            [ring.util.response :refer :all]))

(defn handler [{session :session}]
  (let [n (session :n 1)]
    (-> (response (str "You have visited " n " times"))
        (assoc-in [:session :n] (inc n)))))
                    
(def app
  (-> handler wrap-session))

(defn run
  []
  (run-jetty app {:port 3000}))