summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorEkaitz Zarraga <ekaitz@elenq.tech>2023-10-15 00:22:09 +0200
committerEkaitz Zarraga <ekaitz@elenq.tech>2023-10-15 00:22:09 +0200
commit33c097bc39b7c8d8e436a78daa78e5fdc489b964 (patch)
treec646986534dbf5062b0a903d9eac93e699cb8f27 /src
parent9acd46cc990b6d4a9cfc47b72b19f5f3e988464c (diff)
atom: make a self link identification configurable
Diffstat (limited to 'src')
-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)))