(in-package #:vampire)

(wknd:defendpoint home.html
  :using user-known
  :get :route ""
  :returns "text/html"
  :handle
  (page
   "V A M P I R E"
   (<div>
    ($vcenter
     (<div> (<h3> "hey " (user-name user))
	    (<form> (@ :method "POST" :action (wknd:route-to 'destroy.session))
		    (<button> (@ :type "submit") "Logout"))))
    (<div>
     (<form> (@ :method "POST" :action (wknd:route-to 'create.invite))
	     (<p> "Initiate an invitation...")
	     (<button> (@ :type "submit") "Bite Someone")))
    (<h2> "Outstanding inBites:")
    (apply #'<ul>
	   (mapcar (lambda (i) (<li> (key i)))
		   (invites-by-maker (user-with-name "alucard")))))))