[elpa] elpa-admin ae1c677b43 1/3: Generate link to the Atom feeds using a badge

[Philip Kaludercic]

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

    Generate link to the Atom feeds using a badge
    
    * elpa-admin.el (elpaa--html-make-pkg): Modify the HTML generation
    accordingly.
---
 elpa-admin.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/elpa-admin.el b/elpa-admin.el
index c5a8e2676a..fb90940753 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -1919,7 +1919,9 @@ arbitrary code."
                        elpaa--name name)
                (format "<link href=\"%s.atom\" type=\"application/atom+xml\" 
rel=\"alternate\" />"
                        name)))
-      (insert (format "<h2 class=\"package\">%s</h2>" name))
+      (insert (format "<h2 class=\"package\">%s" name))
+      (insert " <a class=\"badge\" href=\"" name ".xml\"><img 
src=\"/images/rss.svg\" alt=\"Atom Feed\"></a>")
+      (insert "</h2>")
       (insert "<dl>")
       (insert (format "<dt>Description</dt><dd>%s</dd>\n" (elpaa--html-quote 
desc)))
       (if (zerop (length latest))
@@ -1949,7 +1951,6 @@ arbitrary code."
                       (list maints))
                     ", ")
          "</dd>\n"))
-      (insert "<dt>Atom feed</dt><dd><a href=\"" name ".xml\">" name 
".xml</a></dd>")
       (elpaa--insert-repolinks
        pkg-spec
        (or (cdr (assoc :url (aref (cdr pkg) 4)))