[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] elpa-admin 98bcea9 268/357: [admin int] Add abstraction: archive-
From: |
Stefan Monnier |
Subject: |
[elpa] elpa-admin 98bcea9 268/357: [admin int] Add abstraction: archive--dirname |
Date: |
Thu, 10 Dec 2020 18:06:56 -0500 (EST) |
branch: elpa-admin
commit 98bcea9307f77d7e750803ad4818df7dcdf1649e
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>
[admin int] Add abstraction: archive--dirname
* admin/archive-contents.el (archive--dirname): New func.
(archive-prepare-packages, archive--make-changelog, archive--pull)
(archive--cleanup-packages): Use ‘archive--dirname’.
---
admin/archive-contents.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index e4db805..af156b9 100755
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -44,6 +44,9 @@
(list (car elt)
(archive--version-to-list (car (cdr elt)))))
+(defun archive--dirname (dir &optional base)
+ (file-name-as-directory (expand-file-name dir base)))
+
(defun archive--delete-elc-files (dir &optional only-orphans)
"Recursively delete all .elc files in DIR.
Delete backup files also."
@@ -107,7 +110,7 @@ Expects to be called from within the `packages' directory.
\"Prepare\" here is for subsequent construction of the packages and archive,
so it is meant to refresh any generated files we may need.
Currently only refreshes the ChangeLog files."
- (setq srcdir (file-name-as-directory (expand-file-name srcdir)))
+ (setq srcdir (archive--dirname srcdir))
(let* ((wit ".changelog-witness")
(prevno (with-temp-buffer
(insert-file-contents wit)
@@ -240,7 +243,7 @@ Rename DIR/PKG.el to PKG-VERS.el, delete DIR, and return
the descriptor."
(defun archive--make-changelog (dir srcdir)
"Export Git log info of DIR into a ChangeLog file."
(message "Refreshing ChangeLog in %S" dir)
- (let ((default-directory (file-name-as-directory (expand-file-name dir))))
+ (let ((default-directory (archive--dirname dir)))
(with-temp-buffer
(set-buffer-multibyte nil)
(let ((coding-system-for-read 'binary)
@@ -248,8 +251,7 @@ Rename DIR/PKG.el to PKG-VERS.el, delete DIR, and return
the descriptor."
(when (file-readable-p "ChangeLog") (insert-file-contents "ChangeLog"))
(let ((old-md5 (md5 (current-buffer))))
(erase-buffer)
- (let ((default-directory
- (file-name-as-directory (expand-file-name dir srcdir))))
+ (let ((default-directory (archive--dirname dir srcdir)))
(archive-call (current-buffer) ; hmm, why not use ‘t’ here? --ttn
"git" "log" "--date=short"
"--format=%cd %aN <%ae>%n%n%w(80,8,8)%B%n"
@@ -603,8 +605,7 @@ Rename DIR/ to PKG-VERS/, and return the descriptor."
(archive--html-make-index archive-contents)))
(defun archive--pull (dirname)
- (let ((default-directory (file-name-as-directory
- (expand-file-name dirname))))
+ (let ((default-directory (archive--dirname dirname)))
(with-temp-buffer
(message "Running git pull in %S" default-directory)
(archive-call t "git" "pull")
@@ -665,8 +666,7 @@ If WITH-CORE is non-nil, it means we manage :core packages
as well."
((file-directory-p (expand-file-name (format "%s/.git" dir)))
(let ((status
(with-temp-buffer
- (let ((default-directory (file-name-as-directory
- (expand-file-name dir))))
+ (let ((default-directory (archive--dirname dir)))
(archive-call t "git" "status" "--porcelain")
(buffer-string)))))
(if (zerop (length status))
- [elpa] elpa-admin 39eb0cf 343/357: * admin/archive-contents.el (batch-generate-description-file): New function, (continued)
- [elpa] elpa-admin 39eb0cf 343/357: * admin/archive-contents.el (batch-generate-description-file): New function, Stefan Monnier, 2020/12/10
- [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 <=
- [elpa] elpa-admin e2b9274 266/357: [admin int] Simplify ‘archive--write-pkg-file’ calling convention., Stefan Monnier, 2020/12/10
- [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