blob: cd8edd327471f646a1371b98530a6ad48107a364 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(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))))))
|
