diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-04-21 11:11:24 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-04-21 11:11:24 +0200 |
| commit | 9e4311291f4844563b47b6a396e177f3c2668375 (patch) | |
| tree | 3e767c722f434fdeffef902b429c4ebba1deafeb | |
| parent | d3da494dff829d71ba8baaa633986a252c5b75f0 (diff) | |
| download | guix-artwork-9e4311291f4844563b47b6a396e177f3c2668375.tar guix-artwork-9e4311291f4844563b47b6a396e177f3c2668375.tar.gz | |
website: packages: Do not show deprecated packages.
* website/www/packages.scm (packages-page, package-pages): Remove
deprecated packages in default 'packages' argument.
| -rw-r--r-- | website/www/packages.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/website/www/packages.scm b/website/www/packages.scm index f8a201d..cb51e8b 100644 --- a/website/www/packages.scm +++ b/website/www/packages.scm @@ -657,7 +657,8 @@ letter)." (packages-page (packages-by-grouping packages grouping) (string-upcase grouping))) -(define* (packages-page #:optional (packages (all-packages)) +(define* (packages-page #:optional + (packages (remove package-superseded (all-packages))) (grouping "All")) `(html (@ (lang "en")) ,(html-page-header "Packages" #:css "packages.css" #:js "packages.js") @@ -691,7 +692,8 @@ letter)." ,(html-page-footer)))) -(define* (package-pages #:optional (packages (all-packages))) +(define* (package-pages #:optional + (packages (remove package-superseded (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) |