03/05: website: packages: Add 'package-pages' procedure.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix-artwork.

commit 23b3af4dc24597634c464df11a24531ba8710610
Author: Ludovic Courtès <address@hidden>
Date:   Wed Dec 7 15:30:03 2016 +0100

    website: packages: Add 'package-pages' procedure.
    
    * website/www/packages.scm (package-pages): New procedure.
---
 website/www/packages.scm |   12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/website/www/packages.scm b/website/www/packages.scm
index 22e4733..a109bfb 100644
--- a/website/www/packages.scm
+++ b/website/www/packages.scm
@@ -45,7 +45,7 @@
   #:use-module (texinfo)
   #:use-module (texinfo html)
   #:export (%groups
-            packages-page
+            package-pages
             paginated-packages-page
             issues-page))
 
@@ -530,6 +530,16 @@ you can view "
 
           ,(html-page-footer))))
 
+(define* (package-pages #:optional (packages (all-packages)))
+  "Return a list of (FILE PAGE) tuples, where each FILE is an HTML file name
+and PAGE is the corresponding SXML."
+  `(,@(map (lambda (group)
+             (list (string-append group ".html")
+                   (paginated-packages-page packages group)))
+           %groups)
+    ("index.html" ,(paginated-packages-page packages "0-9"))
+    ("all.html" ,(packages-page packages))))
+
 (define* (issues-page #:key (checkers %issue-checkers))
   `(html
     (@ (lang "en"))