[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] elpa-admin 8a02a761ca 2/2: Don't include JavaScript on package pa
From: |
Stefan Kangas |
Subject: |
[elpa] elpa-admin 8a02a761ca 2/2: Don't include JavaScript on package pages |
Date: |
Fri, 23 Sep 2022 07:04:22 -0400 (EDT) |
branch: elpa-admin
commit 8a02a761cab3af0c9b7705a859eb237a32f2ba3c
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>
Don't include JavaScript on package pages
* elpa-admin.el (elpaa--index-javascript-headers): New variable.
(elpaa--html-header): Remove JavaScript headers and add new optional
argument 'head-extra' to add things to the "<head>" section.
(elpaa--html-make-index): Adjust call to above new function to include
'elpaa--index-javascript-headers'.
---
elpa-admin.el | 20 ++++++++++++--------
1 file changed, 12 insertions(+), 8 deletions(-)
diff --git a/elpa-admin.el b/elpa-admin.el
index 21055ef279..76094b7ef5 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -1202,11 +1202,11 @@ readme file has an unconventional name"
(pkg (file-name-nondirectory (directory-file-name dir)))
(pkg-spec (elpaa--get-package-spec pkg 'noerror)))
(elpaa--write-pkg-file dir pkg
- (elpaa--metadata dir pkg-spec)))))
+ (elpaa--metadata dir pkg-spec)))))
;;; Make the HTML pages for online browsing.
-(defun elpaa--html-header (title &optional header)
+(defun elpaa--html-header (title &optional header head-extra)
(format "<!DOCTYPE HTML PUBLIC>
<html lang=\"en\" xml:lang=\"en\">
<head>
@@ -1214,10 +1214,7 @@ readme file has an unconventional name"
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=UTF-8\">
<link rel=\"shortcut icon\" type=\"image/png\" href=\"../favicon.png\">
<link rel=\"stylesheet\"
href=\"//code.cdn.mozilla.net/fonts/fira.css\">
- <link rel=\"stylesheet\" type=\"text/css\" href=\"../layout.css\">
- <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>
+ <link rel=\"stylesheet\" type=\"text/css\" href=\"../layout.css\">%s
<meta name=\"viewport\"
content=\"initial-scale=1.0,maximum-scale=1.0,width=device-width\" />
</head>
<body>
@@ -1231,7 +1228,12 @@ readme file has an unconventional name"
</div>
<div class=\"container\">\n"
- title (or header title)))
+ 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
@@ -1606,7 +1608,9 @@ arbitrary code."
(defun elpaa--html-make-index (pkgs)
(with-temp-buffer
- (insert (elpaa--html-header (concat elpaa--name " ELPA Packages")))
+ (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")
(dolist (pkg pkgs)