From 23b3af4dc24597634c464df11a24531ba8710610 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 7 Dec 2016 15:30:03 +0100 Subject: 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")) -- cgit v1.2.3