blob: 3b25e5a73115eff2a47afe751bb28a16b946daa9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
;;;; pages/goddess-shrine.lisp
(in-package :dnd)
(defrender t ((page (eql :goddess-shrine)))
(with-page (:title "A Sacred Shrine")
(:header
(:h1 "Pray and become a hero..."))
(:form :method "POST" :action "/godess-shrine"
(:label :for "NAME" "Enter the epithet by which the ages shall know thy hero:")
(:input :name "NAME")
(:button :type "submit" "Pray To The Goddess"))))
|