From 61d3b6aae43e1ad870e7832ec964964124eacb1b Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 15 Sep 2023 00:19:37 -0500
Subject: Fix bugs and implement changes

I can actually build a (one-page) site!
---
 boudin.page.index.scm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'boudin.page.index.scm')

diff --git a/boudin.page.index.scm b/boudin.page.index.scm
index 4ff3fd9..52aebc8 100644
--- a/boudin.page.index.scm
+++ b/boudin.page.index.scm
@@ -1,5 +1,6 @@
 (declare (module (boudin page index))
          (export make-index
+                 index-content
                  index-template
                  index-writer
                  make-feed
@@ -33,12 +34,16 @@
             (head ,@(html-head)
                   (title ,(site-name)))
             (body (h1 ,(site-name))
+                  ,(index-content)
                   (ul ,@(map (lambda (pg)
                                `(li (a (@ (href ,(page-slug pg)))
                                        ,(or (page-ref pg "title")
                                             (page-slug pg)))))
                              ((site-sort) pgs))))))))
 
+(define index-content
+  (make-parameter ""))
+
 (define (make-feed pgs)
   (make-page ((feed-template) pgs)
              (make-pathname (site-output) "feed.xml")
-- 
cgit 1.4.1-21-gabe81