From 33c097bc39b7c8d8e436a78daa78e5fdc489b964 Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Sun, 15 Oct 2023 00:22:09 +0200
Subject: atom: make a self link identification configurable

---
 src/atom.scm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'src/atom.scm')

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)))
-- 
cgit v1.2.3