Add: some more refinement of hypno pages88-user-home-page

1 files changed, 8 insertions, 7 deletions

diff --git a/site/login.lisp b/site/login.lisp
index 6a6c8aa..cd8edd3 100644
--- a/site/login.lisp
+++ b/site/login.lisp
@@ -8,12 +8,13 @@
 (defun login-page ()
   (page
    "V A M P I R E ~ LOGIN"
-   (<div> (@ :class "title")
+   (<div> 
     (<h1> "I vant to suck your blood")
-     (<form> (@ :method "POST" :action (wknd:route-to 'create.session))
-      (<input> (@ :placeholder "Name" :name "name"))
-      (<input> (@ :placeholder "Password" :type "password" :name "password"))
-      (<button> (@ :type "submit") "Click to Login"))
+    (<form>
+     (@ :method "POST" :action (wknd:route-to 'create.session))
+     (<input> (@ :placeholder "Name" :name "name"))
+     (<password>)
+     (<submit> "Click to Login"))
     ($center 
-     (<a> (@ :href (wknd:route-to 'new-account.html))
-	  "Hath thou been bitten? Click here to become one of us...")))))
+     (<linkto> "Hath thou been bitten? Click here to become one of us..."
+	       (wknd:route-to 'new-account.html))))))