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