Working on the site move

2 files changed, 21 insertions, 19 deletions

diff --git a/blog/feed.xml b/blog/feed.xml
index 6997e3c..05aecdb 100644
--- a/blog/feed.xml
+++ b/blog/feed.xml
@@ -3,16 +3,16 @@
   <channel>
     <title>Nathan's shitty blog</title>
     <description>The coffee powered blog of chaos</description>
-    <link>http://nathansmith117.beevomit.org/blog</link>
+    <link>https://shittyweb.org</link>
     <image>
-      <url>http://nathansmith117.beevomit.org/images/icon.png</url>
+      <url>https://shittyweb.org/images/icon.png</url>
       <title>Nathan's shitty blog</title>
-      <link>http://nathansmith117.beevomit.org/blog</link>
+      <link>https://shittyweb.org/blog</link>
     </image>
 
     <item>
         <title>Second place</title>
-        <link>http://nathansmith117.beevomit.org/blog#second_place</link>
+        <link>https://shittyweb.org/blog#second_place</link>
         <pubDate>Wed, 30 Apr 2025 10:23:12 GMT</pubDate>
         <description>
 <![CDATA[
@@ -146,7 +146,7 @@
 
     <item>
         <title>Case against identity</title>
-        <link>http://nathansmith117.beevomit.org/blog#case_against_identity</link>
+        <link>https://shittyweb.org/blog#case_against_identity</link>
         <pubDate>Thu, 24 Apr 2025 19:20:02 GMT</pubDate>
         <description>
 <![CDATA[
@@ -217,7 +217,7 @@
 
     <item>
         <title>The project</title>
-        <link>http://nathansmith117.beevomit.org/blog#the_project</link>
+        <link>https://shittyweb.org/blog#the_project</link>
         <pubDate>Sun, 20 Apr 2025 23:05:22 GMT</pubDate>
         <description>
 <![CDATA[
@@ -250,7 +250,7 @@
 
     <item>
         <title>Fakism</title>
-        <link>http://nathansmith117.beevomit.org/blog#fakism</link>
+        <link>https://shittyweb.org/blog#fakism</link>
         <pubDate>Mon, 14 Apr 2025 05:58:51 GMT</pubDate>
         <description>
 <![CDATA[
@@ -297,7 +297,7 @@
 
     <item>
         <title>Fuck aba therapy</title>
-        <link>http://nathansmith117.beevomit.org/blog#fuck_aba_therapy</link>
+        <link>https://shittyweb.org/blog#fuck_aba_therapy</link>
         <pubDate>Fri, 11 Apr 2025 10:22:54 GMT</pubDate>
         <description>
 <![CDATA[
@@ -358,7 +358,7 @@
 
     <item>
         <title>Dogs against doge</title>
-        <link>http://nathansmith117.beevomit.org/blog#dogs_against_doge</link>
+        <link>https://shittyweb.org/blog#dogs_against_doge</link>
         <pubDate>Sat, 5 Apr 2025 23:17:25 GMT</pubDate>
         <description>
 <![CDATA[
@@ -384,7 +384,7 @@
 
     <item>
         <title>On the issue of wikipedia</title>
-        <link>http://nathansmith117.beevomit.org/blog#wikipedia</link>
+        <link>https://shittyweb.org/blog#wikipedia</link>
         <pubDate>Mon, 31 Mar 2025 10:55:00 GMT</pubDate>
         <description>
 <![CDATA[
@@ -497,7 +497,7 @@
 
     <item>
         <title>Dream log 1</title>
-        <link>http://nathansmith117.beevomit.org/blog#dreamlog1</link>
+        <link>https://shittyweb.org/blog#dreamlog1</link>
         <pubDate>Sun, 30 Mar 2025 01:51:00 GMT</pubDate>
         <description>
 <![CDATA[
@@ -521,7 +521,7 @@
 
     <item>
         <title>Overthinking</title>
-        <link>http://nathansmith117.beevomit.org/blog#overthinking</link>
+        <link>https://shittyweb.org/blog#overthinking</link>
         <pubDate>Sat, 29 Mar 2025 11:42:00 GMT</pubDate>
         <description>
 <![CDATA[
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)