(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" (
(

"I vant to suck your blood") (
(@ :method "POST" :action (wknd:route-to 'create.session)) ( (@ :placeholder "Name" :name "name")) () ( "Click to Login")) ($center ( "Hath thou been bitten? Click here to become one of us..." (wknd:route-to 'new-account.html))))))