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