summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/atom.scm11
1 files changed, 6 insertions, 5 deletions
diff --git a/src/atom.scm b/src/atom.scm
index d7b3ce8..c8eced7 100644
--- a/src/atom.scm
+++ b/src/atom.scm
@@ -66,15 +66,16 @@
(set-feed-updated! feed (find-newest (map entry-updated
(feed-entries feed)))))
-(define* (feed #:key (title "")
- (subtitle "")
- (uri "")
- (posts '())
+(define* (feed #:key (title "")
+ (subtitle "")
+ (uri "")
+ (atom-feed-location "")
+ (posts '())
#:allow-other-keys)
(let* ((f (%make-feed uri
title
subtitle
- uri
+ (string-append uri atom-feed-location)
(find-newest (map entry-updated posts))
'()))
(append-entry! (partial append-feed-entry! f)))