From b248110155ac6676fbcda7d6e88b2c2a54bd16b6 Mon Sep 17 00:00:00 2001
From: Lassi Kortela <lassi@lassi.io>
Date: Fri, 7 Aug 2020 16:14:12 +0300
Subject: [PATCH] Declare character encoding

Though the page is output entirely in US-ASCII with Unicode characters
escaped as &#1234; that still doesn't appease W3C's HTML validator. It
wants us to explicitly declare an encoding. If we declare US-ASCII, it
also complains. Therefore declare UTF-8.
---
 generate.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/generate.scm b/generate.scm
index eaf73cd..1b8022e 100644
--- a/generate.scm
+++ b/generate.scm
@@ -50,7 +50,8 @@
                            (else (cdr x)))))
            (display ">")
            (for-each display-sxml body)
-           (display* "</" (car x) ">")))
+           (unless (memq (car x) '(meta))
+             (display* "</" (car x) ">"))))
         ((string? x)
          (string-for-each display-char x))
         (else (error "Bad:" x))))
@@ -232,6 +233,7 @@
      (@ (lang "en"))
      (head
       (title "Scheme Registry")
+      (meta (@ (charset "UTF-8")))
       (style ""
         "body { font-family: sans-serif; background-color: beige;"
         " max-width: 40em; margin: 12px; }"