   (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))


(defmacro with-account [body]
  `(if-let [~'account (~'session :account)]
     ~body
     (redirect "/login")))

(defmacro try-account [body]
  `(let [~'account (~'session :account)]
     ~body))

(defroutes main-routes
  (GET "/search" {session :session params :params}
