     [:footer
      (link-to "mailto:contact@clojars.org" "contact")
      (link-to "http://github.com/ato/clojars-web" "code")
-     (link-to "http://wiki.github.com/ato/clojars-web/help" "help")]]))
+     (link-to "http://wiki.github.com/ato/clojars-web" "help")]]))
 
 (defn login-form [ & [error]]
   (html-doc nil "Login"
    [:h1 "Login"]
+   [:p "Don't have an account? "
+    (link-to "/register" "Sign up!")]
   
    (when error
      [:div {:class :error} (str error)])

     (label :confirm "Confirm password:")
     (password-field :confirm)
     (label :ssh-key "SSH public key:")
     (text-area :ssh-key ssh-key)
     (submit-button "Register"))))


      (conj-when (not (re-matches #"[a-z0-9_-]+" user))
                 (str "Usernames must consist only of lowercase "
                      "letters, numbers, hyphens and underscores."))
      (conj-when (not (or (blank? ssh-key)
                          (valid-ssh-key? ssh-key)))
                 "Invalid SSH public key")))

(defn register [{email :email, user :user, password :password, 
