Forgot to update rss feed links

1 files changed, 11 insertions, 3 deletions

diff --git a/org/blog/generate-feed.scm b/org/blog/generate-feed.scm
index 1db00d4..b41c802 100755
--- a/org/blog/generate-feed.scm
+++ b/org/blog/generate-feed.scm
@@ -20,17 +20,25 @@
         (read-characters fp)
         (display "]]>\n")))))
 
+
+(define (format-article-filename file)
+  (let ((file-length (string-length file)))
+    (string-append (substring file
+                              0
+                              (- file-length 4))
+                   ".xhtml")))
+
 ;; Generate rss item
 (define (make-item article)
   (let ((title (cadr (list-ref article 0)))
-        (name (cadr (list-ref article 2)))
         (pub-date (cadr (list-ref article 4)))
         (file (cadr (list-ref article 6))))
     (format #t "\n    <item>\n\
         <title>~a</title>\n\
-        <link>~a/blog#~a</link>\n\
+        <link>~a/blog/~a</link>\n\
         <pubDate>~a</pubDate>\n\
-        <description>\n" title site-url name pub-date)
+        <description>\n"
+            title site-url (format-article-filename file) pub-date)
     (get-description file)
     (display "        </description>\n")
     (display "    </item>\n")))