diff options
Diffstat (limited to 'site/login.lisp')
| -rw-r--r-- | site/login.lisp | 25 |
1 files changed, 11 insertions, 14 deletions
diff --git a/site/login.lisp b/site/login.lisp index cb1f82f..6a6c8aa 100644 --- a/site/login.lisp +++ b/site/login.lisp @@ -6,17 +6,14 @@ :handle (login-page)) (defun login-page () - (page (:title "V A M P I R E ~ LOGIN") - (:div (:h1 "I vant to suck your blood") - (:form :method "POST" :action (wknd:route-to 'create.session) - (:input :placeholder "Name" :name "name") - (:br) - (:input :placeholder "Password" :type "password" :name "password") - (:br) - (:button :type "submit" "Click to Login")) - (:a :href (wknd:route-to 'new-account.html) - "Become Undead")))) - - - - + (page + "V A M P I R E ~ LOGIN" + (<div> (@ :class "title") + (<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")) + ($center + (<a> (@ :href (wknd:route-to 'new-account.html)) + "Hath thou been bitten? Click here to become one of us..."))))) |