[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa-admin 27c180f 145/439: * README: Update for new "Version:
From: |
Philip Kaludercic |
Subject: |
[nongnu] elpa-admin 27c180f 145/439: * README: Update for new "Version: 0" convention. |
Date: |
Sun, 17 Oct 2021 15:47:49 -0400 (EDT) |
branch: elpa-admin
commit 27c180f20364f558bb79fd698a0a81d861fb61df
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* README: Update for new "Version: 0" convention.
* admin/forward-diffs.py: Adapt to different syntax.
* admin/archive-contents.el (archive--strip-rcs-id): Remove.
(batch-make-archive): Accept "Version: 0" to mean "don't publish".
(archive--metadata): Don't use archive--strip-rcs-id any more.
(archive--html-make-pkg): Handle the case where the is no `latest'.
(batch-html-make-index): Include unreleased packages.
---
README | 4 +--
admin/archive-contents.el | 70 ++++++++++++++++++++++++++++-------------------
2 files changed, 44 insertions(+), 30 deletions(-)
diff --git a/README b/README
index 33e40fc..acc42e4 100644
--- a/README
+++ b/README
@@ -102,8 +102,8 @@ with the command:
If you want to develop a package publicly prior to its first release (to
benefit from others' feedback, primarily), but not in an external repo,
you have 2 choices:
-- you can simply put "Version: -1" to indicate that this should not be
- released.
+- you can simply put "Version: 0" to indicate that this should not be
+ released yet.
- or you can push to an "ephemeral" branch -- subject to rebase and eventual
removal upon finishing merge -- for the duration of the incubation.
diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index 2eead98..5f056ba 100644
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -44,18 +44,6 @@
(list (car elt)
(archive--version-to-list (car (cdr elt)))))
-(defun archive--strip-rcs-id (str)
- "Strip RCS version ID from the version string STR.
-If the result looks like a dotted numeric version, return it.
-Otherwise return nil."
- (when str
- (when (string-match "\\`[ \t]*[$]Revision:[ \t]+" str)
- (setq str (substring str (match-end 0))))
- (condition-case nil
- (if (archive--version-to-list str)
- str)
- (error str))))
-
(defun archive--delete-elc-files (dir &optional only-orphans)
"Recursively delete all .elc files in DIR.
Delete backup files also."
@@ -85,7 +73,9 @@ Delete backup files also."
;; (nth 1 metadata) is nil for "org" which is the only package
;; still using the "org-pkg.el file to specify the metadata.
(if (and (nth 1 metadata)
- (< (string-to-number (nth 1 metadata)) 0))
+ (or (equal (nth 1 metadata) "0")
+ ;; Old deprecated convention.
+ (< (string-to-number (nth 1 metadata)) 0)))
(progn ;; Negative version: don't publish this package yet!
(message "Package %s not released yet!" dir)
(delete-directory dir 'recursive))
@@ -186,11 +176,13 @@ PKG is the name of the package and DIR is the directory
where it is."
(error "Can't parse first line of %s" mainfile)
;; Grab the other fields, which are not mandatory.
(let* ((description (match-string 1))
+ (pv )
(version
- (or (archive--strip-rcs-id (lm-header "package-version"))
- (archive--strip-rcs-id (lm-header "version"))
+ (or (lm-header "package-version")
+ (lm-header "version")
(unless (equal pkg "org")
(error "Missing `version' header"))))
+ (_ (archive--version-to-list version)) ; Sanity check!
(requires-str (lm-header "package-requires"))
(pt (lm-header "package-type"))
(simple (if pt (equal pt "simple") (= (length files) 1)))
@@ -403,6 +395,7 @@ Rename DIR/ to PKG-VERS/, and return the descriptor."
((file-readable-p mainsrcfile)
(with-temp-buffer
(insert-file-contents mainsrcfile)
+ (emacs-lisp-mode) ;lm-section-start needs the outline-mode setting.
(let ((start (lm-section-start hsection)))
(when start
(insert
@@ -459,17 +452,24 @@ Rename DIR/ to PKG-VERS/, and return the descriptor."
(with-temp-buffer
(insert (archive--html-header (format "GNU ELPA - %s" name)))
(insert (format "<p>Description: %s</p>\n" (archive--quote desc)))
- (let* ((file (cdr (assoc latest files)))
- (attrs (file-attributes file)))
- (insert (format "<p>Latest: <a href=%S>%s</a>, %s, %s</p>\n"
- file (archive--quote file)
- (format-time-string "%Y-%b-%d" (nth 5 attrs))
- (archive--html-bytes-format (nth 7 attrs)))))
+ (if (zerop (length latest))
+ (insert "<p>This package "
+ (if files "is not in GNU ELPA any more"
+ "has not been released yet")
+ ".</p>\n")
+ (let* ((file (cdr (assoc latest files)))
+ (attrs (file-attributes file)))
+ (insert (format "<p>Latest: <a href=%S>%s</a>, %s, %s</p>\n"
+ file (archive--quote file)
+ (format-time-string "%Y-%b-%d" (nth 5 attrs))
+ (archive--html-bytes-format (nth 7 attrs))))))
(let ((maint (archive--get-prop "Maintainer" name srcdir mainsrcfile)))
(when maint
(insert (format "<p>Maintainer: %s</p>\n" (archive--quote maint)))))
- (archive--insert-repolinks name srcdir mainsrcfile
- (cdr (assoc :url (aref (cdr pkg) 4))))
+ (archive--insert-repolinks
+ name srcdir mainsrcfile
+ (or (cdr (assoc :url (aref (cdr pkg) 4)))
+ (archive--get-prop "URL" name srcdir mainsrcfile)))
(let ((rm (archive--get-section
"Commentary" '("README" "README.rst"
;; Most README.md files seem to be currently
@@ -481,7 +481,7 @@ Rename DIR/ to PKG-VERS/, and return the descriptor."
(write-region rm nil (concat name "-readme.txt"))
(insert "<h2>Full description</h2><pre>\n" (archive--quote rm)
"\n</pre>\n")))
- (unless (< (length files) 2)
+ (unless (< (length files) (if (zerop (length latest)) 1 2))
(insert (format "<h2>Old versions</h2><table cellpadding=\"3\"
border=\"1\">\n"))
(dolist (file files)
(unless (equal (pop file) latest)
@@ -520,6 +520,10 @@ Rename DIR/ to PKG-VERS/, and return the descriptor."
(goto-char (point-min))
;; Skip the first element which is a version number.
(cdr (read (current-buffer))))))
+ (dolist (subdir (directory-files "../../build/packages" nil))
+ (cond
+ ((member subdir '("." ".." "elpa.rss" "index.html" "archive-contents")))
+ (t (puthash subdir nil packages))))
(dolist (file (directory-files default-directory nil))
(cond
((member file '("." ".." "elpa.rss" "index.html" "archive-contents")))
@@ -532,10 +536,20 @@ Rename DIR/ to PKG-VERS/, and return the descriptor."
(version (match-string 1 file)))
(push (cons version file) (gethash name packages))))
(t (message "Unknown file %S" file))))
- (dolist (pkg archive-contents)
- (archive--html-make-pkg pkg (gethash (symbol-name (car pkg)) packages)))
- ;; FIXME: Add (old?) packages that are in `packages' but not in
- ;; archive-contents.
+ (maphash (lambda (pkg-name files)
+ (archive--html-make-pkg
+ (let ((pkg (intern pkg-name)))
+ (or (assq pkg archive-contents)
+ ;; Add entries for packages that are either not yet
+ ;; released or not released any more.
+ ;; FIXME: Get actual description!
+ (let ((entry (cons pkg (vector nil nil "" nil nil))))
+ (setq archive-contents
+ ;; Add entry at the end.
+ (nconc archive-contents (list entry)))
+ entry)))
+ files))
+ packages)
(archive--html-make-index archive-contents)))
;;; Maintain external packages.
- [nongnu] elpa-admin 73304d8 097/439: Fix up deployment script, (continued)
- [nongnu] elpa-admin 73304d8 097/439: Fix up deployment script, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin c8efad2 096/439: Fix up copyrights and the checking code, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 4f4a301 104/439: * GNUmakefile: Obey a .elpaignore file in a package's root directory., Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin e38e391 108/439: Use lm-keywords-list instead of split-string for archive contents., Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 7db4e2d 112/439: small updates to README and NOTES, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin b84cae0 119/439: * archive-contents.el (archive--simple-package-p): Quote the, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 876bb45 128/439: Merge git+ssh://git.sv.gnu.org/srv/git/emacs/elpa, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin e52215f 124/439: first commit, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin a0b6599 127/439: Subject: Fix up quoting of keywords. Remove leftover support for *-pkg.el., Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin f5586f2 135/439: bump version to 0.1.1, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 27c180f 145/439: * README: Update for new "Version: 0" convention.,
Philip Kaludercic <=
- [nongnu] elpa-admin 84f4eb7 153/439: * wcheck-mode: New package., Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin f08292f 152/439: * admin/archive-contents.el: Don't stop at the first incorrect version string., Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin faf7826 158/439: publish ada-mode 5.1.6, wisi 1.0.6, new package ada-ref-man, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 6ab28f9 156/439: drop Emacs dependency to 24.3, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 79849d3 167/439: Add 'packages/realgud/' from commit 'd811316e6a0f4eeee8a1347f504c196c86baa2cb', Philip Kaludercic, 2021/10/17
- [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