diff options
Diffstat (limited to 'blog/generate_feed.scm')
| -rwxr-xr-x | blog/generate_feed.scm | 16 |
1 files changed, 9 insertions, 7 deletions
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) |