(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> ($ :width "100%")
     (<navbar>)
     (<div> ($ :height "70%" )
      (<h3> "hey " (user-name user))
      (<form> (@ :method "POST" :action (wknd:route-to 'create.invite))
	      (<p> "Initiate an invitation...")
	      (<submit> "Bite Someone"))
      (<h2> "Outstanding inBites:")
      (<invite-list> user)))))

(defun <invite-list> (user)
  (apply #'<ul>
	 (mapcar (lambda (i) (<li> (key i)))
		 (invites-by-maker user))))