From 9e4311291f4844563b47b6a396e177f3c2668375 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Fri, 21 Apr 2017 11:11:24 +0200 Subject: 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) -- cgit v1.2.3