From 448c7f7bf18240b451fdbb626abf61e2ff4c07c9 Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Mon, 8 Jul 2024 17:08:31 +0200
Subject: [PATCH] Move h1 into container div

---
 src/main.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/main.lisp b/src/main.lisp
index a4a105e..f44df60 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -117,7 +117,8 @@
       (write-string string stream))))
 
 (defmacro with-page ((&key
-                        meta (title "Web page")
+                        meta
+                        (title "Web page")
                         main-con
                         add-css-urls
                         add-js-urls)
@@ -169,7 +170,8 @@ Example usage:
                  :class "skip-link"
                  (find-l10n "skip-link" *html-lang* *l10n*)))
        ,@body
-       (:h1 :class "container" ,main-heading))))
+       (:div :class "container"
+             (:h1 ,main-heading)))))
 
 (defmacro body-main (&optional main-con &body body)
   `(spinneret:with-html