[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa-admin 299da86 255/439: Package pages improvements
From: |
Philip Kaludercic |
Subject: |
[nongnu] elpa-admin 299da86 255/439: Package pages improvements |
Date: |
Sun, 17 Oct 2021 15:48:14 -0400 (EDT) |
branch: elpa-admin
commit 299da86ce1d2ddad492f728d8519cd7c276d8bce
Author: Nicolas Petton <nicolas@petton.fr>
Commit: Nicolas Petton <nicolas@petton.fr>
Package pages improvements
* admin/archive-contents.el: Better layout for package descriptions,
and add a section for package installation.
* html/layout.css: Minor improvements.
---
admin/archive-contents.el | 24 +++++++++++++++---------
1 file changed, 15 insertions(+), 9 deletions(-)
diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index abe0147..953a00b 100755
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -438,7 +438,7 @@ Rename DIR/ to PKG-VERS/, and return the descriptor."
(defun archive--insert-repolinks (name srcdir _mainsrcfile url)
(when url
- (insert (format "<p>Home page: <a href=%S>%s</a></p>\n"
+ (insert (format "<dt>Home page</dt> <dd><a href=%S>%s</a></dd>\n"
url (archive--quote url)))
(when (string-match archive-default-url-re url)
(setq url nil)))
@@ -455,8 +455,8 @@ Rename DIR/ to PKG-VERS/, and return the descriptor."
'("cgit/emacs/elpa.git/tree/packages/"
"gitweb/?p=emacs/elpa.git;a=tree;f=packages/"))))
(insert (format
- (concat (format "<p>Browse %srepository: " (if url "ELPA's " ""))
- "<a href=%S>%s</a> or <a href=%S>%s</a></p>\n")
+ (concat (format "<dt>Browse %srepository</dt> <dd>" (if url
"ELPA's " ""))
+ "<a href=%S>%s</a> or <a href=%S>%s</a></dd>\n")
(concat git-sv (nth 0 urls) name)
'CGit
(concat git-sv (nth 1 urls) name)
@@ -470,25 +470,31 @@ Rename DIR/ to PKG-VERS/, and return the descriptor."
(desc (aref (cdr pkg) 2)))
(with-temp-buffer
(insert (archive--html-header (format "GNU ELPA - %s" name)))
- (insert (format "<p>Description: %s</p>\n" (archive--quote desc)))
+ (insert (format "<h2 class=\"package\">%s</h2>" name))
+ (insert "<dl>")
+ (insert (format "<dt>Description</dt><dd>%s</dd>\n" (archive--quote
desc)))
(if (zerop (length latest))
- (insert "<p>This package "
+ (insert "<dd>This package "
(if files "is not in GNU ELPA any more"
"has not been released yet")
- ".</p>\n")
+ ".</dd>\n")
(let* ((file (cdr (assoc latest files)))
(attrs (file-attributes file)))
- (insert (format "<p>Latest: <a href=%S>%s</a>, %s, %s</p>\n"
+ (insert (format "<dt>Latest</dt> <dd><a href=%S>%s</a>, %s,
%s</dd>\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)))))
+ (insert (format "<dt>Maintainer</dt> <dd>%s</dd>\n" (archive--quote
maint)))))
(archive--insert-repolinks
name srcdir mainsrcfile
(or (cdr (assoc :url (aref (cdr pkg) 4)))
(archive--get-prop "URL" name srcdir mainsrcfile)))
+ (insert "</dl>")
+ (insert (format "<p>To install this package, run in Emacs:</p>
+ <pre>M-x <span class=\"kw\">package-install</span> RET
<span class=\"kw\">%s</span> RET</pre>"
+ name))
(let ((rm (archive--get-section
"Commentary" '("README" "README.rst"
;; Most README.md files seem to be currently
@@ -817,6 +823,6 @@ If WITH-CORE is non-nil, it means we manage :core packages
as well."
(sort (append exts core) #'string<)
""))
(save-buffer))))
-
+
(provide 'archive-contents)
;;; archive-contents.el ends here
- [nongnu] elpa-admin 285d815 049/439: Fix last change., (continued)
- [nongnu] elpa-admin 285d815 049/439: Fix last change., Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin b824440 047/439: Minor rephrasing in README, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin dfa5808 053/439: Rework archive-contents.el to handle new packages/ structure., Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin da7456c 065/439: write README in markdown, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 7ce78d5 071/439: Note that 'autogen.sh' should be run to generate 'configure' and 'Makefile.in' (see #11), Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin a745b29 076/439: * admin/archive-contents.el: Create web pages., Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 1daf0bb 085/439: Merge branch 'master' of github.com:rocky/emacs-loc-changes, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin e71d997 087/439: Merge remote-tracking branch 'repo.or.cz/elpa', Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin cd01c51 080/439: Remove the angle brackets, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 30c8a11 248/439: Merge commit '5f47b1f64cad8a06e945e2a1287b986a3676554d', Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 299da86 255/439: Package pages improvements,
Philip Kaludercic <=
- [nongnu] elpa-admin 5067b05 258/439: Change to package directory before checking .elpaignore exclusions., Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin ec13cc2 260/439: Let ert-support.el work for subdirectories, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 8ee4770 264/439: [admin int] Add abstraction: archive--form-from-file-contents, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin ae66216 267/439: [admin int] Replace one-armed-‘if’ w/ either ‘when’ or ‘and’., Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin a23a8b8 271/439: Merge branch 'scratch/hook-helpers', Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 334aa51 273/439: Merge commit 'a1130df3ada34e76675324a8c25823b420b20239', Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin cb72492 279/439: Merge branch 'ebdb-bits', Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin c60a3bb 280/439: Merge branch 'scratch/which-key', Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 8154769 282/439: * copyright_exceptions: Update for new uni-confusables/gen-confusables.el, Philip Kaludercic, 2021/10/17
- [nongnu] elpa-admin 280353e 287/439: Merge commit 'cb905bdc728fb3b5f9fdff8836d71b62bd717eab' from mmm-mode, Philip Kaludercic, 2021/10/17