diff options
author | colin <colin@cicadas.surf> | 2023-01-21 09:49:39 -0800 |
---|---|---|
committer | colin <colin@cicadas.surf> | 2023-01-21 09:49:39 -0800 |
commit | 6b1c9d7ae508c41848828939454945bf2addb994 (patch) | |
tree | 05210e5b7bc1735031ae3df0c7f75becdbe6b6e1 /pages.lisp | |
parent | b1c6b6ecf3476beb82f7b39516b94863e12c37f8 (diff) |
Refactor+Fix: with-hero-session macro; packaging and init
Diffstat (limited to 'pages.lisp')
-rw-r--r-- | pages.lisp | 9 |
1 files changed, 5 insertions, 4 deletions
@@ -1,5 +1,7 @@ ;;;; pages.lisp -- html generation functions for dnd +(in-package :dnd) + (defmacro with-page ((&key title) &body body) `(with-html-string (:doctype) @@ -15,7 +17,7 @@ (:form :method "POST" :action "/godess-shrine" (:label :for "NAME" "Enter the epithet thy hero shall be called:") (:input :name "NAME") - (:button :type "submit")))) + (:button :type "submit" "Pry To The Goddess")))) (defun doorkeeper () (with-page (:title "Tavern Door") @@ -23,11 +25,10 @@ (:form :method "POST" :action "/tavern-door" (:label :for "NAME" "Thy Hero's Appelation:") (:input :name "NAME") - (:button :type "submit")) + (:button :type "submit" "Enter")) (:h2 "Eh? Ye need to birth a new hero?") (:a :href "/godess-shrine" "Follow me..."))) (defun tavern (hero) (with-page (:title "A Bustling Tavern") - (:h1 "Aye! Welcome " (hero-name hero)) - ())) + (:h1 "Aye! Welcome " (hero-name hero)))) |