summaryrefslogtreecommitdiff
path: root/pages.lisp
diff options
context:
space:
mode:
authorGrant Shangreaux <shoshin@cicadas.surf>2023-01-24 22:02:17 -0600
committerGrant Shangreaux <shoshin@cicadas.surf>2023-01-24 22:02:17 -0600
commitffa213f6f825479df7b544f23d1240dd1c86f10f (patch)
treeed62fb361048774e252c7a1f80c1da325bc8a7de /pages.lisp
parent01c9197114270d153308226a1588de78ed05ee29 (diff)
Add: doorkeeper :message param to pass info to user
Basic handling for when a hero name is entered but does not exist in the store. The /tavern-door endpoint will parse a NAME query param and the doorkeeper says they've never heard of them.
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")