branch: elpa-admin
commit 0f39db873ca4c9aaff1e9b716d845e4234d3091e
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@iro.umontreal.ca>
(elpaa--write-plain-readme): (Re)add `README.md`
---
elpa-admin.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/elpa-admin.el b/elpa-admin.el
index 46eb403ccd..929b95d90f 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -734,6 +734,8 @@ auxiliary files unless TARBALL-ONLY is non-nil ."
(let ((pkgname (car pkg-spec))
(default-directory
(expand-file-name (file-name-directory tarball))))
+ ;; FIXME: We shouldn't rebuild the tarball but only the
+ ;; particular missing file(s)!!!
(and (file-readable-p (format "%s-readme.txt" pkgname))
(file-readable-p (format "%s.xml" pkgname))
(file-readable-p (format "%s.html" pkgname))
@@ -1520,11 +1522,12 @@ readme file has an unconventional name"
rendered))
((let* ((readme-file (elpaa--spec-get pkg-spec :readme))
(known-readme-names ;see `package--get-description'
- '("README-elpa"
- "README-elpa.md"
+ '("README-elpa.md"
+ "README-elpa"
"README"
+ "README.org"
"README.rst"
- "README.org")))
+ "README.md")))
(when (and readme-file
(not (eq readme-file 'ignore))
(not (member readme-file known-readme-names)))
