blob: 15774fbd989a94c12c54526a434937e59ae30700 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
;;;; 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...")))
|