civodul pushed a commit to branch master
in repository guix-artwork.
commit 9e4311291f4844563b47b6a396e177f3c2668375
Author: Ludovic Courtès <l...@gnu.org>
Date: Fri Apr 21 11:11:24 2017 +0200
website: packages: Do not show deprecated packages.
* website/www/packages.scm (packages-page, package-pages): Remove
deprecated packages in default 'packages' argument.
---
website/www/packages.scm | 6 ++++--
1 file 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)
