[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] elpa-admin 14797ea 319/357: * admin/archive-contents.el: Adjust l
From: |
Stefan Monnier |
Subject: |
[elpa] elpa-admin 14797ea 319/357: * admin/archive-contents.el: Adjust last change |
Date: |
Thu, 10 Dec 2020 18:07:06 -0500 (EST) |
branch: elpa-admin
commit 14797ea330786f9bc2006bab2fb9ec6adc84b61c
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* admin/archive-contents.el: Adjust last change
(archive--metadata): Fix plist<->alist confusion.
(archive--external-package-sync): Don't break if previous clone
was interrupted.
(archive--core-package-link-file): Don't drop a trailing / from the newname.
(archive--core-package-sync): Ensure default-directory has a trailing slash.
---
admin/archive-contents.el | 34 +++++++++++++++++++++-------------
1 file changed, 21 insertions(+), 13 deletions(-)
diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index 914c68f..bebf5e4 100644
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -145,7 +145,9 @@ Currently only refreshes the ChangeLog files."
(when (file-directory-p pkg)
(archive--make-changelog pkg (expand-file-name "packages/"
srcdir)))
- (error (message "Error: %S" v)))))
+ (error (message
+ "Error in archive-prepare-packages for package %S:\n %S"
+ pkg v)))))
(write-region new-revno nil wit nil 'quiet)
;; Also update the ChangeLog of external packages.
(let ((default-directory (expand-file-name "packages/")))
@@ -206,22 +208,22 @@ PKG is the name of the package and DIR is the directory
where it is."
(extras (package-desc-extras pkg-desc))
(version (package-desc-version pkg-desc))
(keywords (lm-keywords-list))
- (_ (archive--version-to-list version)) ; Sanity check!
+ ;; (_ (archive--version-to-list version)) ; Sanity check!
(pt (lm-header "package-type"))
(simple (if pt (equal pt "simple") (= (length files) 1)))
- (found-url (plist-get extras :url))
- (found-keywords (plist-get extras :keywords)))
+ (found-url (alist-get :url extras))
+ (found-keywords (alist-get :keywords extras)))
(when (and keywords (not found-keywords))
;; Using an old package-buffer-info which doesn't include
;; keywords. Fix it by hand.
- (setq extras (plist-put extras :keywords keywords)))
+ (push (cons :keywords keywords) extras))
(unless found-url
;; Provide a good default URL.
- (setq extras (plist-put extras :url
- (format archive-default-url-format pkg))))
-
- (list simple version (package-desc-summary pkg-desc)
+ (push (cons :url (format archive-default-url-format pkg)) extras))
+ (list simple
+ (package-version-join version)
+ (package-desc-summary pkg-desc)
(package-desc-reqs pkg-desc)
extras))))
(t
@@ -751,7 +753,7 @@ If WITH-CORE is non-nil, it means we manage :core packages
as well."
(with-temp-buffer
(if (archive--use-worktree-p)
(archive-call t "git" "worktree" "add"
- "-b" branch
+ "-B" branch
name (concat "origin/" branch))
(archive-call t "git" "clone"
"--reference" ".." "--single-branch"
@@ -772,7 +774,10 @@ If WITH-CORE is non-nil, it means we manage :core packages
as well."
"Link file from SOURCE to DEST ensuring subdirectories."
(unless (string-match-p exclude-regexp source)
(let* ((absolute-package-file-name
- (expand-file-name dest package-root))
+ (if (equal "" dest)
+ ;; Calling expand-file-name would remove the trailing / !
+ package-root
+ (expand-file-name dest package-root)))
(absolute-core-file-name
(expand-file-name source emacs-repo-root))
(directory (file-name-directory absolute-package-file-name)))
@@ -780,10 +785,12 @@ If WITH-CORE is non-nil, it means we manage :core
packages as well."
(setq directory (file-name-quote directory)))
(unless (file-directory-p directory)
(make-directory directory t))
- (condition-case nil
+ (condition-case err
(make-symbolic-link absolute-core-file-name
absolute-package-file-name t)
(file-error
+ (message "Error: can't symlink to %S from %S:\n %S"
+ absolute-core-file-name absolute-package-file-name err)
(copy-file absolute-core-file-name
(if (file-directory-p absolute-package-file-name)
(file-name-as-directory absolute-package-file-name)
@@ -823,7 +830,8 @@ If WITH-CORE is non-nil, it means we manage :core packages
as well."
(pcase-let*
((`(,name . (:core ,file-patterns :excludes ,excludes)) definition)
(emacs-repo-root (expand-file-name "emacs"))
- (package-root (expand-file-name name "packages"))
+ (package-root (file-name-as-directory
+ (expand-file-name name "packages")))
(default-directory package-root)
(exclude-regexp
(mapconcat #'identity
- [elpa] elpa-admin dbd4e0b 295/357: Merge remote-tracking branch 'refs/remotes/origin/master', (continued)
- [elpa] elpa-admin dbd4e0b 295/357: Merge remote-tracking branch 'refs/remotes/origin/master', Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 02d8431 297/357: * admin/archive-contents.el (archive--insert-repolinks): Fix further yet, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 38e81a8 300/357: * README: Recommend "externals" and add some recommendations, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin a216465 299/357: * admin/archive-contents.el (archive--insert-repolinks): Whoops, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 0e7eab5 304/357: Merge commit 'facd92f4c026525706a48b96b4e0b24543ce1d94', Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 75bab1c 309/357: * admin/archive-contents.el: Fix case of non-versions dependencies, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 86e31b7 313/357: Merge branch 'master' of git://bzr.sv.gnu.org/emacs/elpa, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 973ee9d 314/357: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs/elpa, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 0b90b0a 322/357: * GNUmakefile (check_copyrights): Only look at "copyright" in comments, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 5da248f 325/357: * GNUmakefile (process-archive): Fix placement of --exclude and -X, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 14797ea 319/357: * admin/archive-contents.el: Adjust last change,
Stefan Monnier <=
- [elpa] elpa-admin b69dfb7 324/357: Merge commit '8dbcc8e07c462777378cc859eced622ec9b0fc4d', Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 1b69bf6 340/357: * admin/archive-contents.el: Don't use "git log" when not needed, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 8ed7b88 354/357: Rename vars and functions with `elpaa-` prefix, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 7d65683 356/357: * admin/archive-contents.el: Fix wrong cgit links and support :core somewhat, Stefan Monnier, 2020/12/10