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)))