Unless title throw an error

2024-01-26 18:03:23 +01:00 · 2024-01-26 18:03:23 +01:00 · cbd4f59747
commit cbd4f59747
parent 1fb5193d46
1 changed files with 2 additions and 0 deletions
--- a/src/main.lisp
+++ b/src/main.lisp
@ -70,6 +70,8 @@
      (write-string string stream))))

 (defmacro with-page ((&key meta title add-css-urls add-js-urls) &body body)
+  (unless title
+    (error "Please add a title"))
  `(spinneret:with-html
     (:doctype)
     (:html :data-bs-theme ,*color-theme*