(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))))))