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