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