From eea0da373349349b4d25dd4bc116a9c9eb04fb98 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Mon, 6 Mar 2023 20:06:19 -0800
Subject: Add: basic page stub to view an adventure

---
 src/render.lisp | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

(limited to 'src/render.lisp')

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))))))
-- 
cgit v1.2.3