marcuskammer/dev.metalisp.sbt
1
1
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Move h1 into container div

Browse source
This commit is contained in:
Marcus Kammer 2024-07-08 17:08:31 +02:00
parent e75cc5d9b4
commit 448c7f7bf1
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/main.lisp
View file

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