diff options
| -rw-r--r-- | src/atom.scm | 11 |
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))) |