From f80c82597ffcf3a65cc49ffca8f3b7ffa8117c27 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Thu, 27 Oct 2022 14:51:23 -0500
Subject: Add: navigation header

---
 navigation.lisp | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 navigation.lisp

(limited to 'navigation.lisp')

diff --git a/navigation.lisp b/navigation.lisp
new file mode 100644
index 0000000..4f73917
--- /dev/null
+++ b/navigation.lisp
@@ -0,0 +1,9 @@
+;;;; navigation
+
+(in-package :vampire)
+
+(defun create-navigation-header (parent)
+  (with-clog-create parent
+      (unordered-list ()
+                      (list-item () (a (:link "/home" :content "Home")))
+                      (list-item () (a (:link "/explore" :content "Explore"))))))
-- 
cgit v1.2.3