From 4381b1d7b2141eb60a2b9d494180a52dc7ec71bd Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Thu, 1 Jun 2023 23:38:20 +0200 Subject: [PATCH] Remove "-melpa" from some symbol names For users of this library that aren't MELPA, that string is incorrect. And for us it just needlessly makes the names longer, without any real benefit. Keep the name `package-build--melpa-base' because renaming that would be more likely to cause breakage and, because it usually does refer to the MELPA repository, even when used by something other than MELPA. --- package-build-badges.el | 4 ++-- package-build.el | 15 +++++++++------ 2 files changed, 11 insertions(+), 8 deletions(-) diff --git a/package-build-badges.el b/package-build-badges.el index d104fd9..fc82cb6 100644 --- a/package-build-badges.el +++ b/package-build-badges.el @@ -35,8 +35,8 @@ (defvar package-build-stable) (defvar package-build-badge-data) -(defun package-build--write-melpa-badge-image ( name version target-dir - &optional archive color) +(defun package-build--write-badge-image ( name version target-dir + &optional archive color) "Make badge svg file. This is essentially a copy of `elpaa--make-badge'." (let* ((file (expand-file-name (concat name "-badge.svg") target-dir)) diff --git a/package-build.el b/package-build.el index c942583..8add065 100644 --- a/package-build.el +++ b/package-build.el @@ -171,8 +171,11 @@ similar, which will provide the GNU timeout program as "Type of `package-build-tar-executable'. Can be `gnu' or `bsd'; nil means the type is not decided yet.") -(defcustom package-build-write-melpa-badge-images nil - "When non-nil, write MELPA badge images alongside packages. +(define-obsolete-variable-alias 'package-build-write-badge-images + 'package-build-write-badge-images "Package-Build 5.0.0") + +(defcustom package-build-write-badge-images nil + "When non-nil, write badge images alongside packages. These badges can, for example, be used on GitHub pages." :group 'package-build :type 'boolean) @@ -183,8 +186,8 @@ These badges can, for example, be used on GitHub pages." (list "melpa" "#922793")) "Data used when generating badge images. The default value is set based on `package-build-stable'. -`package-build-write-melpa-badge-images' controls whether -images are generated." +`package-build-write-badge-images' controls whether images +are generated." :group 'package-build :type '(list (string :tag "Archive name") color)) @@ -955,8 +958,8 @@ in `package-build-archive-dir'." (package-build--build-single-file-package rcp files)) (t (package-build--build-multi-file-package rcp files))) - (when package-build-write-melpa-badge-images - (package-build--write-melpa-badge-image + (when package-build-write-badge-images + (package-build--write-badge-image (oref rcp name) (oref rcp version) package-build-archive-dir)))) (funcall package-build-cleanup-function rcp))))