blob: 5267985bff62c40966ee0c2e46119fd4c388633d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
(in-package #:vampire)
(wknd:defendpoint home.html
:using user-known
:get :route ""
:returns "text/html"
:handle (page (:title "V A M P I R E")
(:div :id "main"
(:h1 "hey " (user-name user))
(:br)
(:div
(:form :method "POST" :action (wknd:route-to 'session.destroy)
(:button :type "submit" "Logout")))
(:br)
(:br)
(:div
(:form :method "POST" :action (wknd:route-to 'create.invite)
(:p "Initiate an invitation...")
(:button :type "submit" "Bite Someone")))
(:br)
(:h2 "Outstanding inBites:")
(:ul (dolist (i (invites-by-maker user))
(:li (key i)))))))
|
