blob: f84700e0d9d1b7238a0285ed7b850ed511d03666 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(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")
(:p "hey " (user-name user))
(:div
(:form :method "POST" :action "/invites"
(:p "Initiate an invitation...")
(:button :type "submit" "Bite Someone")))
(:br)
(:h2 "Outstanding inBites:")
(:ul (dolist (i (invites-by-maker user))
(:li (key i))))))
|
