blob: ebc644b6921c5b91f0f59e07fd6b364394f04a4f (
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 home.html
:using user-known
:get :route ""
:returns "text/html"
:handle
(page
"V A M P I R E"
(<div>
($vcenter
(<div> (<h3> "hey " (user-name user))
(<form> (@ :method "POST" :action (wknd:route-to 'destroy.session))
(<button> (@ :type "submit") "Logout"))))
(<div>
(<form> (@ :method "POST" :action (wknd:route-to 'create.invite))
(<p> "Initiate an invitation...")
(<button> (@ :type "submit") "Bite Someone")))
(<h2> "Outstanding inBites:")
(apply #'<ul>
(mapcar (lambda (i) (<li> (key i)))
(invites-by-maker (user-with-name "alucard")))))))
|
