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

Dont enforce title on with-page

Browse source
This commit is contained in:
Marcus Kammer 2024-01-28 11:03:08 +01:00
parent b170989812
commit 6df66dca08
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/main.lisp
View file

@ -69,9 +69,7 @@
(with-open-file (stream filename :direction :output :if-exists :supersede)
(write-string string stream))))
(defmacro with-page ((&key meta title main-con add-css-urls add-js-urls) &body body)
(unless title
(error "A page needs a title. Please add a title."))
(defmacro with-page ((&key meta (title "Web page") main-con add-css-urls add-js-urls) &body body)
`(spinneret:with-html
(:doctype)
(:html :data-bs-theme ,*color-theme*