Add: basic page stub to view an adventure

1 files changed, 9 insertions, 7 deletions

diff --git a/src/render.lisp b/src/render.lisp
index 140e1ec..71f07b4 100644
--- a/src/render.lisp
+++ b/src/render.lisp
@@ -14,10 +14,12 @@ be a keyword for usin in EQL method specializers."))
 
 (defmacro with-page ((&key title) &body body)
   "A helper macro fordefining some standard page boilerplate."
-  `(with-html-string
-     (:doctype)
-     (:html
-      (:head
-       (:title ,title))
-      (:body
-       ,@body))))
+  (let ((title-var (gensym)))
+   `(let ((,title-var ,title))
+      (with-html-string
+        (:doctype)
+        (:html
+         (:head
+          (:title ,title-var))
+         (:body
+          ,@body))))))