diff options
Diffstat (limited to 'site/login.lisp')
| -rw-r--r-- | site/login.lisp | 15 |
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)))))) |