[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] elpa-admin e2b9274 266/357: [admin int] Simplify ‘archive--write
From: |
Stefan Monnier |
Subject: |
[elpa] elpa-admin e2b9274 266/357: [admin int] Simplify ‘archive--write-pkg-file’ calling convention. |
Date: |
Thu, 10 Dec 2020 18:06:56 -0500 (EST) |
branch: elpa-admin
commit e2b9274160a520e14a09adeff87b144c5780aa5d
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>
[admin int] Simplify ‘archive--write-pkg-file’ calling convention.
* admin/archive-contents.el (archive--write-pkg-file):
No longer take VERSION, DESC, REQUIRES, EXTRAS; instead,
take METADATA and destructure it to obtain those values.
(batch-make-archive, archive--refresh-pkg-file):
Update calls to ‘archive--write-pkg-file’ accordingly.
---
admin/archive-contents.el | 36 ++++++++++++++++++------------------
1 file changed, 18 insertions(+), 18 deletions(-)
diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index 6ebf5dd..7ec415c 100755
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -86,8 +86,7 @@ Delete backup files also."
(apply #'archive--process-simple-package
dir pkg (cdr metadata))
(if (nth 1 metadata)
- (apply #'archive--write-pkg-file
- dir pkg (cdr metadata)))
+ (archive--write-pkg-file dir pkg metadata))
(archive--process-multi-file-package dir pkg))
packages)))))
((debug error) (error "Error in %s: %S" dir v))))
@@ -323,10 +322,9 @@ Rename DIR/ to PKG-VERS/, and return the descriptor."
(defun archive--refresh-pkg-file ()
(let* ((dir (directory-file-name default-directory))
(pkg (file-name-nondirectory dir)))
- (apply #'archive--write-pkg-file dir pkg
- (cdr (archive--metadata dir pkg)))))
+ (archive--write-pkg-file dir pkg (archive--metadata dir pkg))))
-(defun archive--write-pkg-file (pkg-dir name version desc requires extras)
+(defun archive--write-pkg-file (pkg-dir name metadata)
(let ((pkg-file (expand-file-name (concat name "-pkg.el") pkg-dir))
(print-level nil)
(print-quoted t)
@@ -335,19 +333,21 @@ Rename DIR/ to PKG-VERS/, and return the descriptor."
(concat (format ";; Generated package description from %s.el\n"
name)
(prin1-to-string
- (nconc
- (list 'define-package
- name
- version
- desc
- (list 'quote
- ;; Turn version lists into string form.
- (mapcar
- (lambda (elt)
- (list (car elt)
- (package-version-join (cadr elt))))
- requires)))
- (archive--alist-to-plist-args extras)))
+ (cl-destructuring-bind (version desc requires extras)
+ (cdr metadata)
+ (nconc
+ (list 'define-package
+ name
+ version
+ desc
+ (list 'quote
+ ;; Turn version lists into string form.
+ (mapcar
+ (lambda (elt)
+ (list (car elt)
+ (package-version-join (cadr elt))))
+ requires)))
+ (archive--alist-to-plist-args extras))))
"\n")
nil
pkg-file)))
- [elpa] elpa-admin 311d819 357/357: * GNUmakefile: Fix `-l` args to `emacs` which require an actual file name, (continued)
- [elpa] elpa-admin 311d819 357/357: * GNUmakefile: Fix `-l` args to `emacs` which require an actual file name, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin ac1e1e9 198/357: README: Fix typos., Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 9db3516 274/357: Merge branch 'scratch/org-edna', Stefan Monnier, 2020/12/10
- [elpa] elpa-admin cb72492 279/357: Merge branch 'ebdb-bits', Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 7e4545d 200/357: * admin/archive-contents.el (archive--html-header): Use `title' for the H1., Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 49382d4 067/357: Some tweaks to README, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin e38e391 108/357: Use lm-keywords-list instead of split-string for archive contents., Stefan Monnier, 2020/12/10
- [elpa] elpa-admin a73fa6a 113/357: update link in README, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin a0bc800 185/357: Squashed 'packages/pinentry/' content from commit 075deb6, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 98bcea9 268/357: [admin int] Add abstraction: archive--dirname, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin e2b9274 266/357: [admin int] Simplify ‘archive--write-pkg-file’ calling convention.,
Stefan Monnier <=
- [elpa] elpa-admin ae66216 267/357: [admin int] Replace one-armed-‘if’ w/ either ‘when’ or ‘and’., Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 32ff16d 247/357: Merge commit 'ff57536e7c8e7dd2b5bfdf803fe78327b572e080', Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 94286b7 276/357: * packages/yasnippet: Merge version 0.12.0 from upstream., Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 8ee4770 264/357: [admin int] Add abstraction: archive--form-from-file-contents, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin b9ba590 252/357: packages/yasnippet: Merge external (v0.11.0), Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 602f32e 277/357: Merge yasnippet 0.12.1 from upstream, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 19a11bc 278/357: Add explicit instructions for new external packages, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 280353e 287/357: Merge commit 'cb905bdc728fb3b5f9fdff8836d71b62bd717eab' from mmm-mode, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 63888f3 292/357: Warn about transfer.fsckObjects, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin a5d74b0 291/357: * packages/yasnippet: Merge version 0.13.0 from upstream., Stefan Monnier, 2020/12/10