(in-package #:vampire)

(wknd:defendpoint login.html
  :get :route "login"
  :returns "text/html"
  :handle (login-page))

(defun login-page ()
  (page
   "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"))
     (<password>)
     (<submit> "Click to Login"))
    ($center 
     (<linkto> "Hath thou been bitten? Click here to become one of us..."
	       (wknd:route-to 'new-account.html))))))