(in-package #:vampire)

(wknd:defendpoint login.html
  :get :route "login"
  :returns "text/html"
  :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"))))