[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa-admin 303f2c9 075/439: * admin/archive-contents.el (batch-
From: |
Philip Kaludercic |
Subject: |
[nongnu] elpa-admin 303f2c9 075/439: * admin/archive-contents.el (batch-make-site-package): New function. |
Date: |
Sun, 17 Oct 2021 15:47:36 -0400 (EDT) |
branch: elpa-admin
commit 303f2c9803ffccb85661442041d2599b97d53991
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* admin/archive-contents.el (batch-make-site-package): New function.
* Makefile (site/%): Use it.
---
admin/archive-contents.el | 15 +++++++++++++--
1 file changed, 13 insertions(+), 2 deletions(-)
diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index 92c592e..6c388a9 100644
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -1,6 +1,6 @@
;;; archive-contents.el --- Auto-generate an Emacs Lisp package archive.
-;; Copyright (C) 2011 Free Software Foundation, Inc
+;; Copyright (C) 2011, 2012 Free Software Foundation, Inc
;; Author: Stefan Monnier <monnier@iro.umontreal.ca>
@@ -22,6 +22,7 @@
;;; Code:
(require 'lisp-mnt)
+(require 'package)
(defconst archive-contents-subdirectory-regexp
"\\([^.].*?\\)-\\([0-9]+\\(?:[.][0-9]+\\|\\(?:pre\\|beta\\|alpha\\)[0-9]+\\)*\\)")
@@ -187,7 +188,7 @@ PKG-readme.txt. Return the descriptor."
(setq package-dir (expand-file-name package-dir default-directory))
(setq site-dir (expand-file-name site-dir default-directory))
(dolist (dir (directory-files package-dir t archive-re-no-dot))
- (condition-case v
+ (condition-case v
(if (not (file-directory-p dir))
(error "Skipping non-package file %s" dir)
(let* ((pkg (file-name-nondirectory dir))
@@ -218,6 +219,16 @@ PKG-readme.txt. Return the descriptor."
;; Error handler
(error (message "%s" (cadr v))))))
+(defun batch-make-site-package (sdir)
+ (let* ((dest (car (file-attributes sdir)))
+ (pkg (file-name-nondirectory (directory-file-name (or dest sdir))))
+ (dir (or dest sdir)))
+ (let ((make-backup-files nil))
+ (package-generate-autoloads pkg dir))
+ (let ((load-path (cons dir load-path)))
+ ;; FIXME: Don't compile the -pkg.el files!
+ (byte-recompile-directory dir 0))))
+
(defun archive--write-pkg-file (pkg-dir name version desc requires &rest
ignored)
(let ((pkg-file (expand-file-name (concat name "-pkg.el") pkg-dir))
(print-level nil)
- [nongnu] elpa-admin 779c1d2 165/439: Add 'packages/loc-changes/' from commit '8447baff7cb4839ef8d1d747a14e5da85d0cee5b', (continued)
- [nongnu] elpa-admin 779c1d2 165/439: Add 'packages/loc-changes/' from commit '8447baff7cb4839ef8d1d747a14e5da85d0cee5b', Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 345dc39 189/439: * GNUmakefile: Use LC_ALL rather than LANG, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin d079afa 187/439: Squashed 'packages/pinentry/' changes from 075deb6..b3a45a5, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 97cad46 171/439: Merge commit '3fa56d7925d5b24c5cd11c61bd6b3235e753a055', Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 4a3a7c2 193/439: * README: Improve subtree instructions, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 2307841 196/439: * README: Expand instructions, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 842d54c 056/439: * admin/archive-contents.el (batch-make-site-dir, archive--write-pkg-file): New functions., Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 3afe3ac 060/439: Use org-mode markup in README and rename it to README.org, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 49382d4 067/439: Some tweaks to README, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 49fce77 070/439: Rename README to README.rst, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 303f2c9 075/439: * admin/archive-contents.el (batch-make-site-package): New function.,
Philip Kaludercic <=
- [nongnu] elpa-admin febff3e 079/439: Make README more up-to-date, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 6ba7e63 077/439: Try to preserve timestamps. Fix ChangeLog generation., Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin bffc4a6 090/439: Don't create local branches, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 480283a 089/439: Move check_copyright to the makefile, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 81a6a01 088/439: Fix up scripts to build archive from Git, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 90851ae 086/439: Get "make -k" to go through, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin de56f9a 095/439: Mark merge point of company., Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin efd0702 098/439: Fix generation of package autoloads, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 5a664e2 091/439: Merge branch 'master' of git+ssh://git.sv.gnu.org/srv/git/emacs/elpa, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin daf3553 099/439: Sync from ack/master, Philip Kaludercic, 2021/10/17