From e4a2b7cdcf5fa62f301730db6b1e33d521d9d96f Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Fri, 21 Oct 2022 23:18:30 +0200 Subject: [PATCH] * elpa-admin.el (elpaa-batch-make-all-packages): Generate elpa-packages.eld --- elpa-admin.el | 18 ++++++++++++++++-- 1 file changed, 16 insertions(+), 2 deletions(-) diff --git a/elpa-admin.el b/elpa-admin.el index 054c9bda86..fc08dcb540 100644 --- a/elpa-admin.el +++ b/elpa-admin.el @@ -764,11 +764,25 @@ of the current `process-environment'. Return the modified copy." (defun elpaa-batch-make-all-packages (&rest _) "Check all the packages and build the relevant new tarballs." - (let* ((specs (elpaa--get-specs))) + (let* ((git-sv "https://git.sv.gnu.org/") + (specs (elpaa--get-specs))) (dolist (spec specs) (condition-case err (elpaa--make-one-package spec) - (error (message "Build error for %s: %S" (car spec) err)))))) + (error (message "Build error for %s: %S" (car spec) err)))) + (with-temp-buffer + ;; Remove and compress the contents of the "elpa-packages" + (let ((standard-output (current-buffer))) + (dolist (spec specs) + (when (eq (cadr spec) :core) ;handle "core" packages + (setf (cdr spec) + (append + (list :url (format "%s/git/%s" git-sv elpaa--gitrepo) + :branch (concat elpaa--branch-prefix (car spec))) + (cdddr spec))))) + (prin1 specs)) + (write-region nil nil (expand-file-name "elpa-packages.eld" elpaa--release-subdir)) + (write-region nil nil (expand-file-name "elpa-packages.eld" elpaa--devel-subdir))))) (defun elpaa-batch-make-one-package (&rest _) "Build the new tarballs (if needed) for one particular package." -- 2.38.0