blob: 33e80111358d2c2a1ffd08ca566ad8a43fa000f3 (
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 "/goddess-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"))))
|
