blob: 560637dda48aa5f7b23438b2be82eefdeb0e484c (
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")
(:button :type "submit" "Announce Thyself"))
(:h2 "Eh? Ye need to announce thyeself?")
(:a :href "/join" "Follow me...")))
|
