diff options
Diffstat (limited to 'blog')
| -rw-r--r-- | blog/feed.xml | 24 | ||||
| -rwxr-xr-x | blog/generate_feed.scm | 16 |
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) |