Move h1 into container div

2024-07-08 17:08:31 +02:00 · 2024-07-08 17:08:31 +02:00 · 448c7f7bf1
commit 448c7f7bf1
parent e75cc5d9b4
1 changed files with 4 additions and 2 deletions
--- 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