[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa-admin cb8a04b 195/439: * admin/archive-contents.el: Improv
From: |
Philip Kaludercic |
Subject: |
[nongnu] elpa-admin cb8a04b 195/439: * admin/archive-contents.el: Improve docstrings |
Date: |
Sun, 17 Oct 2021 15:48:00 -0400 (EDT) |
branch: elpa-admin
commit cb8a04b48a314e8f44e9a876fc494200fcadfd0b
Author: Artur Malabarba <bruce.connor.am@gmail.com>
Commit: Artur Malabarba <bruce.connor.am@gmail.com>
* admin/archive-contents.el: Improve docstrings
(archive--cleanup-packages): Clarify what's deleted.
(archive-add/remove/update-externals): Add a docustring.
---
admin/archive-contents.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index 5ead837..74e473e 100755
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -589,7 +589,9 @@ Rename DIR/ to PKG-VERS/, and return the descriptor."
"existing checkout.") reference)))))
(defun archive--cleanup-packages (externals-list)
- "Cleanup packages not registered in the EXTERNALS-LIST."
+ "Remove subdirectories of `packages/' that do not correspond to known
packages.
+This is any subdirectory inside `packages/' that's not under
+version control nor listed in EXTERNALS-LIST."
(let ((default-directory (expand-file-name "packages/")))
(dolist (dir (directory-files "."))
(cond
@@ -609,6 +611,7 @@ Rename DIR/ to PKG-VERS/, and return the descriptor."
(progn (delete-directory dir 'recursive t)
(message "Deleted all of %s" dir))
(message "Keeping leftover unclean %s:\n%s" dir status))))
+ ;; Check if `dir' is under version control.
((not (zerop (call-process "git" nil nil nil
"ls-files" "--error-unmatch" dir)))
(message "Deleted untracked package %s" dir)
@@ -721,6 +724,7 @@ Rename DIR/ to PKG-VERS/, and return the descriptor."
file dest emacs-repo-root package-root exclude-regexp))))))
(defun archive-add/remove/update-externals ()
+ "Remove non-package directories and fetch external packages."
(let ((externals-list
(with-current-buffer (find-file-noselect "externals-list")
(read (buffer-string)))))
- [nongnu] elpa-admin 548b0ee 164/439: Remove version.texi from the repo, (continued)
- [nongnu] elpa-admin 548b0ee 164/439: Remove version.texi from the repo, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 0b918e3 191/439: Merge ack master from github.com:leoliu/ack-el, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 2970d75 176/439: Merge branch 'master' of git+ssh://git.sv.gnu.org/srv/git/emacs/elpa, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin c8403d5 175/439: Add 'packages/loc-changes/' from commit 'efbe022eaeef0ccc54ffe219216974a786c3301c', Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 3a129d5 190/439: Add support to build packages from Emacs repo, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 788c439 170/439: Merge commit 'fea2a8b1c10f9f29ba6924b17892de670b650756', Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 5a1a2bc 184/439: Merge commit '32b1944d5f0a65aa10c6768f4865f7ed1de8eb49' as 'packages/pinentry', Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 4d58120 179/439: * GNUmakefile: Fix autoloads generation for aggressive-indent, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin aec5d97 172/439: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs/elpa, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 28819e8 192/439: Skip uninteresting elements, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin cb8a04b 195/439: * admin/archive-contents.el: Improve docstrings,
Philip Kaludercic <=
- [nongnu] elpa-admin ac1e1e9 198/439: README: Fix typos., Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin f936e1e 180/439: Merge dummy commit to add the gnorb subtree metadata., Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 3a394c3 188/439: Merge commit 'd76bcd7c0dcecb33e6955e25963028600c371588', Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 5e9fdd4 197/439: * README: Revert change about package.el headers, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 9731033 204/439: Use symbolic links for core packages, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 7edd6ff 205/439: Dereference symlinks when creating tarballs, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin df09582 201/439: * README: Add submission guideline, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 7fa1dbd 214/439: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs/elpa, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 5571ea8 211/439: Add symlink to README, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 60ab286 213/439: Squashed 'packages/gnome-c-style/' content from commit e84487c, Philip Kaludercic, 2021/10/17