diff options
| author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-10-15 00:22:09 +0200 |
|---|---|---|
| committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-10-15 00:22:09 +0200 |
| commit | 33c097bc39b7c8d8e436a78daa78e5fdc489b964 (patch) | |
| tree | c646986534dbf5062b0a903d9eac93e699cb8f27 | |
| parent | 9acd46cc990b6d4a9cfc47b72b19f5f3e988464c (diff) | |
atom: make a self link identification configurable
| -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))) |