diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-12-07 15:30:03 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-12-07 15:30:03 +0100 |
| commit | 23b3af4dc24597634c464df11a24531ba8710610 (patch) | |
| tree | 2c4cc84174cde9007b151c3b4b0ca1bc2b41f314 /website/www | |
| parent | 0cd22b81c4acc3ac3f307c7411d9081e1e4d9c27 (diff) | |
| download | guix-artwork-23b3af4dc24597634c464df11a24531ba8710610.tar guix-artwork-23b3af4dc24597634c464df11a24531ba8710610.tar.gz | |
website: packages: Add 'package-pages' procedure.
* website/www/packages.scm (package-pages): New procedure.
Diffstat (limited to 'website/www')
| -rw-r--r-- | website/www/packages.scm | 12 |
1 files changed, 11 insertions, 1 deletions
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")) |