diff options
| -rwxr-xr-x | org/blog/generate-feed.scm | 14 |
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"))) |