procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Prefer https for other domains than gnu.org in package URL

Browse source 
* lisp/emacs-lisp/package.el (describe-package-1): Prefer https for
some other common domains in the package URL.
This commit is contained in:
Stefan Kangas 2021-09-26 14:29:41 +02:00
parent a0d5de4fb9
commit 8ea1765fea
1 changed files with 11 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/emacs-lisp/package.el
View file

@ -2620,12 +2620,17 @@ Helper function for `describe-package'."
(package-desc-name pkg))))
(insert "\n")))
(when homepage
;; Prefer https for the homepage of packages on gnu.org.
(if (string-match-p "^http://\\(elpa\\|www\\)\\.gnu\\.org/" homepage)
(let ((gnu (cdr (assoc "gnu" package-archives))))
(and gnu (string-match-p "^https" gnu)
(setq homepage
(replace-regexp-in-string "^http" "https" homepage)))))
;; Prefer https for the homepage of packages on common domains.
(when (string-match-p (rx bol "http://" (or "elpa." "www." "git." "")
(or "nongnu.org" "gnu.org" "sr.ht"
"emacswiki.org" "gitlab.com" "github.com")
"/")
homepage)
;; But only if the user has "https" in `package-archives'.
(let ((gnu (cdr (assoc "gnu" package-archives))))
(and gnu (string-match-p "^https" gnu)
(setq homepage
(replace-regexp-in-string "^http" "https" homepage)))))
(package--print-help-section "Homepage")
(help-insert-xref-button homepage 'help-url homepage)
(insert "\n"))