;;;; pages/doorkeeper.lisp -- announce yourself and enter the hero's tavern

(in-package :dnd)

;;; DOORKEEPER CLASS
(defclass/std doorkeeper ()
  ((message)))

;; the t specialization works for all render targets 
(defrender t ((page doorkeeper))
  (with-page (:title "Tavern Door")
    (:h1 (message page))
    (:form :method "POST" :action "/tavern-door"
	   (:label :for "NICKNAME" "Wut's yer handle?:")
	   (:input :name "NICKNAME") (:br)
	   (:button :type "submit" "Announce Thyself"))
    (:h2 "Eh? Ye need to register for admission?")
    (:a :href "/join" "Follow me...")))