From 093af865d746b159fa0c61fd32622926ba0c29bb Mon Sep 17 00:00:00 2001
From: nathan <nathansmith@posteo.com>
Date: Sat, 10 May 2025 03:24:02 -0600
Subject: Working on the site move

---
 blog/generate_feed.scm | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

(limited to 'blog/generate_feed.scm')

diff --git a/blog/generate_feed.scm b/blog/generate_feed.scm
index 0084dc9..8519f0c 100755
--- a/blog/generate_feed.scm
+++ b/blog/generate_feed.scm
@@ -4,6 +4,8 @@
 
 (use-modules (sxml simple))
 
+(define site-url "https://shittyweb.org")
+
 ;; Generate description from article file
 (define (get-description file)
   (call-with-input-file file
@@ -26,9 +28,9 @@
         (file (cadr (list-ref article 6))))
     (format #t "\n    <item>\n\
         <title>~a</title>\n\
-        <link>http://nathansmith117.beevomit.org/blog#~a</link>\n\
+        <link>~a/blog#~a</link>\n\
         <pubDate>~a</pubDate>\n\
-        <description>\n" title name pub-date)
+        <description>\n" title site-url name pub-date)
     (get-description file)
     (display "        </description>\n")
     (display "    </item>\n")))
@@ -36,17 +38,17 @@
 ;; Generate rss feed
 (define (generate-feed)
   ;; Display the rss header
-  (display "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>\n\
+  (format #t "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>\n\
 <rss version=\"2.0\">\n\
   <channel>\n\
     <title>Nathan's shitty blog</title>\n\
     <description>The coffee powered blog of chaos</description>\n\
-    <link>http://nathansmith117.beevomit.org/blog</link>\n\
+    <link>~a</link>\n\
     <image>\n\
-      <url>http://nathansmith117.beevomit.org/images/icon.png</url>\n\
+      <url>~a/images/icon.png</url>\n\
       <title>Nathan's shitty blog</title>\n\
-      <link>http://nathansmith117.beevomit.org/blog</link>\n\
-    </image>\n")
+      <link>~a/blog</link>\n\
+    </image>\n" site-url site-url site-url)
 
   (call-with-input-file "articles.xml"
     (lambda (fp)
-- 
cgit v1.2.3