   (ANY "*" {session :session}
     (html-doc (session :account) "Page not found" (not-found-doc))))
 
-
 (def clojars-app
    (-> main-routes
        wrap-session
        (wrap-file "public")
        db-middleware))
 
-;(require 'swank.swank)
-;(swank.swank/start-server "/dev/null" :port 4005)
+(comment
+  (require 'swank.swank)
+  (swank.swank/start-repl)
 
-
-;(use 'clojure.contrib.repl-utils)
-;(show server)
-;(.stop server)
-
-;(with-db (find-jar "leiningen"))
-
-
-;(def server (run-server {:port 8000} "/*" (servlet clojars-app)))
+  (with-db (find-jar "leiningen"))
+  (def server (run-server {:port 8000} "/*" (servlet clojars-app)))
+  (.stop server))

    (with-account
     (profile-form account)))
  (POST "/profile" {session :session params :params}
    (with-account 
      (update-profile account params)))
  (GET "/login" {params :params}
    (login-form))

(ns clojars.web
  (:use [clojars.db :only [with-db group-members find-user add-member
                           find-jar find-canon-jar db-middleware]]
        [clojars.web.dashboard :only [dashboard index-page]]
        [clojars.web.search :only [search]]
        [clojars.web.user :only [profile-form update-profile show-user
                                 register register-form]]
        [clojars.web.group :only [show-group]]
        [clojars.web.jar :only [show-jar]]
        [clojars.web.common :only [html-doc]]
        [clojars.web.login :only [login login-form]]
        [hiccup.core :only [html h]]
        [ring.middleware.session :only [wrap-session]]
        [ring.middleware.file :only [wrap-file]]
        [ring.util.response :only [redirect]]
        [compojure.core :only [defroutes GET POST ANY]])
  (:require [clojure.contrib.sql :as sql]))

(defn not-found-doc []
  (html [:h1 "Page not found"]
