summaryrefslogtreecommitdiff
path: root/pages.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'pages.lisp')
-rw-r--r--pages.lisp4
1 files changed, 2 insertions, 2 deletions
diff --git a/pages.lisp b/pages.lisp
index 9ae2de9..7f705cd 100644
--- a/pages.lisp
+++ b/pages.lisp
@@ -19,9 +19,9 @@
(:input :name "NAME")
(:button :type "submit" "Pray To The Goddess"))))
-(defun doorkeeper ()
+(defun doorkeeper (&key (message "Wot's yer name 'ero?"))
(with-page (:title "Tavern Door")
- (:h1 "Wot's yer name 'ero?")
+ (:h1 message)
(:form :method "POST" :action "/tavern-door"
(:label :for "NAME" "Thy Hero's Appelation:")
(:input :name "NAME")