[elpa] elpa-admin d5a182d9f3 3/3: Add a <link> element to every Atom feed post

[Philip Kaludercic]

branch: elpa-admin
commit d5a182d9f31f6dad6975c117756408081a1133a4
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Add a <link> element to every Atom feed post
    
    * elpa-admin.el (elpaa--render-atom): Update the XML S-Expression,
    reusing the per-post path.
---
 elpa-admin.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/elpa-admin.el b/elpa-admin.el
index bad61a0797..46eb403ccd 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -3197,7 +3197,7 @@ the article."
             (rfc3339 (time)
               (format-time-string "%Y-%m-%dT%H:%M:%SZ" time)))
     (let* ((articles (sort articles #'newer-p))
-           (domain (if (string-match "\\`https?://\\([^/]+\\)/" elpaa--url)
+           (domain (if (string-match "\\`https?://\\([^/]+/\\)" elpaa--url)
                        (match-string 1 elpaa--url)
                      (error "Failed to infer domain from %S" elpaa--url)))
            (self (concat "https://"; domain path)))
@@ -3225,6 +3225,8 @@ the article."
                                   domain
                                   (format-time-string "%F" time)
                                   path))
+                 (link ((href . ,(concat "https://"; domain path))
+                        (rel . "self")))
                  (content
                   ((type . "html"))
                   ,(with-temp-buffer