1 files changed, 14 insertions, 0 deletions
diff --git a/site/html.lisp b/site/html.lisp
new file mode 100644
index 0000000..d1d0f1a
--- /dev/null
+++ b/site/html.lisp
@@ -0,0 +1,14 @@
+(in-package #:vampire)
+
+
+(defmacro page ((&key (title "") (csspath "/css/style.css")) &body body)
+  `(spinneret:with-html-string
+     (:doctype)
+     (:head
+      (:title ,title)
+      (:meta :charset "UTF-8")
+      (:meta :name "viewport" :content "width=device-width, initial-scale=1.0")
+      (:link :rel "stylesheet" :href ,csspath))
+     (:body
+      ,@body)))
+