From 132bb57d594894f7c9bdfea23e17971028acaedf Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sat, 1 Jun 2024 05:59:17 -0700
Subject: Add: page macro, css. Refactor: endpoints for consistent naming

---
 site/html.lisp | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 site/html.lisp

(limited to 'site/html.lisp')

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)))
+
-- 
cgit v1.2.3