gistfile1.clj

(ns net.experimentalworks.clojure.comp
  (:use compojure))

(defroutes helloworld-routes
   (GET "/login/:user"
          [(session-assoc :loggedin (:user params))
           (html [:html [:body [:p "You are now logged in as " (:user params)]]])])
   (GET "/logout" 
        (if (contains? session :loggedin)
          [(session-dissoc :loggedin)
           (html [:html [:body [:p "Logged out"]]])]
          (html [:html [:body [:p "You are not logged in"]]])))
   (GET "/*"
        (if (contains? session :loggedin)
          (html [:html [:body [:p "Welcome back " [:b (:loggedin session)]]]])
          (html [:html [:body [:p "Hello World"]]]))))
        
(decorate helloworld-routes (with-session :memory))
          
(run-server {:port 8080}
            "/*" (servlet helloworld-routes))