From cf8b8c70cf01e8e369173138122a4043a132989c Mon Sep 17 00:00:00 2001
From: nathansmith <nathansmith@posteo.com>
Date: Fri, 23 May 2025 08:22:49 -0600
Subject: Fixed up blog a bit

---
 org/blog/generate_html.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'org/blog/generate_html.scm')

diff --git a/org/blog/generate_html.scm b/org/blog/generate_html.scm
index 2d9baeb..c214ff1 100755
--- a/org/blog/generate_html.scm
+++ b/org/blog/generate_html.scm
@@ -21,7 +21,7 @@
 (define (make-article-list-link article)
   (let ((title (cadr (list-ref article 0)))
         (name (cadr (list-ref article 2))))
-    (string-append "    <li><a href=\"#" name "\">" title "</a></li/>\n")))
+    (string-append "    <li><a href=\"#" name "\">" title "</a></li>\n")))
 
 ;; Reads the article file and formats some stuff out
 (define (get-raw-article file)
@@ -37,7 +37,7 @@
         (pub-date (cadr (list-ref article 4)))
         (file (cadr (list-ref article 6))))
     (string-append
-     "\n<table border=\"1\" width=\"60%\">\n"
+     "\n<table border=\"1\" width=\"60%\" bgcolor=\"#bebebe\">\n"
      "    <tr><td><h2 id=\"" name "\">" title "</h2>--- " pub-date
      "</td></tr>\n"
      "    <tr><td>" (get-raw-article file) "    </td></tr>\n"
@@ -45,7 +45,7 @@
 
 ;; Generates a html blog from xml data
 (define (generate-html)
-  (let ((template (read-entire-file "template.html"))
+  (let ((template (read-entire-file "template.xhtml"))
         (article-list "<ul>\n")
         (article-cards "")
         (articles (call-with-input-file "articles.xml"
-- 
cgit v1.2.3