diff options
Diffstat (limited to 'haunt/builder/atom.scm')
-rw-r--r-- | haunt/builder/atom.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/haunt/builder/atom.scm b/haunt/builder/atom.scm index 9a015b2..c580aaf 100644 --- a/haunt/builder/atom.scm +++ b/haunt/builder/atom.scm @@ -171,6 +171,7 @@ (file-name "feed.xml") (subtitle "Recent Posts") (filter posts/reverse-chronological) + (last-updated (current-date)) (max-entries 20) (blog-prefix "")) "Return a builder procedure that renders a list of posts as an Atom @@ -182,6 +183,8 @@ SUBTITLE: The feed subtitle. FILTER: The procedure called to manipulate the posts list before rendering. +LAST-UPDATED: The feed last updated date. + MAX-ENTRIES: The maximum number of posts to render in the feed. BLOG-PREFIX: The prefix for all post URLs, which is the combination of @@ -196,7 +199,7 @@ the blog's prefix and post prefix." (title ,(site-title site)) (id ,uri) (subtitle ,subtitle) - (updated ,(date->string* (current-date))) + (updated ,(date->string* last-updated)) (link (@ (href ,uri) (rel "self"))) (link (@ (href ,(uri->string @@ -211,6 +214,7 @@ the blog's prefix and post prefix." (define* (atom-feeds-by-tag #:key (prefix "feeds/tags") (filter posts/reverse-chronological) + (last-updated (current-date)) (max-entries 20) (blog-prefix "")) "Return a builder procedure that renders an atom feed for every tag @@ -221,6 +225,8 @@ PREFIX: The directory in which to write the feeds. FILTER: The procedure called to manipulate the posts list before rendering. +LAST-UPDATED: The feed last updated date. + MAX-ENTRIES: The maximum number of posts to render in each feed. BLOG-PREFIX: The prefix for all post URLs, which is the combination of @@ -232,6 +238,7 @@ the blog's prefix and post prefix." ((atom-feed #:file-name (string-append prefix "/" tag ".xml") #:subtitle (string-append "Tag: " tag) #:filter filter + #:last-updated last-updated #:max-entries max-entries #:blog-prefix blog-prefix) site posts))) |