From 96fee0fc402559401a376b237ebe65bd9710255b Mon Sep 17 00:00:00 2001
From: Philip Kaludercic <philipk@posteo.net>
Date: Thu, 15 Feb 2024 11:43:38 +0100
Subject: [PATCH] Generate HTML5 tags instead of <div>s with custom classes

---
 elpa-admin.el | 27 +++++++++++----------------
 1 file changed, 11 insertions(+), 16 deletions(-)

diff --git a/elpa-admin.el b/elpa-admin.el
index 7831c794ae..f166c6f137 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -1553,24 +1553,19 @@ readme file has an unconventional name"
 
         <div class=\"wrapper\">
 
-            <div class=\"header small\">
-                <div class=\"container\">
+            <header class=\"small\">
                     <h1>%s</h1>
-                </div>
-            </div>
+            </header>
 
-            <div class=\"container\">\n"
+            <main>\n"
           title (or head-extra "") (or header title)))
 
 (defvar elpaa--index-javascript-headers "
-        <script src=\"../javascript/jquery.min.js\" type=\"text/javascript\"></script>
-        <script src=\"../javascript/jquery.filtertable.min.js\" type=\"text/javascript\"></script>
         <script src=\"../javascript/package-search.js\" type=\"text/javascript\"></script>")
 
 (defun elpaa--html-footer ()
   (format "\n
-        <div class=\"footer\">
-            <div class=\"container\">
+        <footer>
                 <p>Last refreshed on %s</p>
                 <p>Copyright 2016-%s <a href=\"https://fsf.org\">Free Software Foundation</a>, Inc.</p>
                 <p>Design provided by <a href=\"https://nicolas.petton.fr\">Nicolas Petton</a></p>
@@ -1580,8 +1575,7 @@ readme file has an unconventional name"
                   International License.
                 </p>
                 <p><a href=\"/jslicense.html\" data-jslicense=\"1\">JavaScript Licenses</a></p>
-            </div>
-        </div>
+        </footer>
 
 </body>\n"
           (format-time-string "%Y-%b-%d %R %Z" nil t)
@@ -1950,7 +1944,7 @@ arbitrary code."
                   "<div class=\"splice news\">\n"
                   (elpaa--section-to-html news)
                   "\n</div>\n")))
-      (insert "</div>\n")
+      (insert "</main>\n")
       (insert (elpaa--html-footer))
       (write-region (point-min) (point-max) (concat name ".html")))))
 
@@ -1959,15 +1953,16 @@ arbitrary code."
     (insert (elpaa--html-header
              (concat elpaa--name " ELPA Packages")
              nil elpaa--index-javascript-headers))
-    (insert "<table>\n")
-    (insert "<tr><th>Package</th><th>Version</th><th>Description</th></tr>\n")
+    (insert "<table id=\"packages\">\n")
+    (insert "<thead><tr><th>Package</th><th>Version</th><th>Description</th></tr></thead>\n")
+    (insert "<tbody>")
     (dolist (pkg pkgs)
       (insert (format "<tr><td><a href=\"%s.html\">%s</a></td><td>%s</td><td>%s</td></tr>\n"
                       (car pkg) (car pkg)
                       (package-version-join (aref (cdr pkg) 0))
                       (aref (cdr pkg) 2))))
-    (insert "                </table>
-            </div>
+    (insert "</tbody></table>
+            </main>
             <div class=\"push\"></div>
         </div>")
     (insert (elpaa--html-footer))
-- 
2.43.0