From 2f3759bc63354d5e25a8b751de4e0ae9df79c3c3 Mon Sep 17 00:00:00 2001
From: Lassi Kortela <lassi@lassi.io>
Date: Fri, 7 Aug 2020 11:32:36 +0300
Subject: [PATCH] Add intro box + mailing list and git links

---
 generate.scm | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/generate.scm b/generate.scm
index 2c05e05..f87384d 100644
--- a/generate.scm
+++ b/generate.scm
@@ -238,10 +238,27 @@
         "tr.red td { background-color: sandybrown; }"
         "tr.green td { background-color: lightgreen; }"
         "tr.blue td { background-color: lightblue; }"
+        ".intro { background-color: lightyellow; padding: 12px;"
+        " border: 1px solid gray; border-radius: 10px; }"
         ))
      (body
       (h1 "Scheme Registry")
-      (p "The Scheme registry collects identifiers.")
+      (p (@ (class "intro")) "A catalog of the defined symbols,"
+         " identifiers and other pieces of data used by Scheme"
+         " standards and implementations.")
+      (p "Administration happens on the " (code "schemeregistry")
+         " mailing list ("
+         (a (@ (href "https://srfi-email.schemers.org/schemeregistry/"))
+            "archives")
+         ", "
+         (a (@ (href ,(string-append
+                       "https://srfi.schemers.org/srfi-list-subscribe.html"
+                       "#schemeregistry")))
+            "subscribe")
+         "). Feel free to suggest additions and corrections there."
+         " Source is in a "
+         (a (@ (href "https://github.com/srfi-explorations/registry"))
+            "git repository") ".")
       ,(scheme-id)
       ,(operating-system)
       ,(machine)