(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> (@ :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...")))))