[elpa] elpa-admin 299da86 255/357: Package pages improvements

[Stefan Monnier]

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