From 83561b1acfb603967f0f598adb6f315db0608c33 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Fri, 20 Jun 2025 08:21:28 -0400
Subject: Added convenience routine for looking up a label-replacement pair
 that remains unused.  Fixed the RSS feed a bit for conformance.  Added batch
 commands on windows to strip BASIC EOF character from files after building
 during the lowercasing step.

---
 rss.bas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'rss.bas')

diff --git a/rss.bas b/rss.bas
index 15ef4d6..98619bb 100644
--- a/rss.bas
+++ b/rss.bas
@@ -14,7 +14,7 @@
 8014 REM ============================
 8020 OPEN DESTDIR$+"\posts.rss" FOR OUTPUT AS #9
 8030 PRINT#9, "<?xml version='1.0' encoding='UTF-8' ?>"
-8032 PRINT#9, "<rss version='2.0'>"
+8032 PRINT#9, "<rss version='2.0' xmlns:atom='http://www.w3.org/2005/Atom'>"
 8034 PRINT#9, "<channel>"
 8040 RTITLE$ = "Blog":RDESC$ = "A blog from BASIC":RLINK$ = "http://jeff.rainbow-100.com"
 8050 FOR FINDEX = 1 TO ILBL
@@ -26,11 +26,14 @@
 8090 PRINT#9, "<title>";RTITLE$;"</title>"
 8100 PRINT#9, "<description>";RDESC$;"</description>"
 8110 PRINT#9, "<link>";RLINK$;"</link>"
+8120 PRINT#9, "<atom:link href='";RLINK$;"posts.rss' rel='self' type='application/rss+xml' />"
 8150 FOR FINDEX = 1 TO POSTCNT
 8160     PRINT#9, "<item>"
 8170     PRINT#9, "<title>";POSTTIT$[FINDEX];"</title>"
 8173     POSTROOT$ = LEFT$(POSTS$[FINDEX], 8)
-8180     PRINT#9, "<link>";RLINK$;POSTROOT$;".HTM";"</link>"
+8180     PRINT#9, "<link>";RLINK$;POSTROOT$;".";HTMLEXT$;"</link>"
+8184     REM Yes, this GUID seems odd, but it's fine
+8185     PRINT#9, "<guid>";RLINK$;POSTROOT$;".";HTMLEXT$;"</guid>"
 8190     D$ = POSTROOT$:GOSUB 8400
 8200     PRINT#9, "<pubDate>";DFANCY$;"</pubDate>"
 8210     PRINT#9, "</item>"
-- 
cgit v1.2.3