01/01: website: packages: Do not show deprecated packages.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix-artwork.

commit 9e4311291f4844563b47b6a396e177f3c2668375
Author: Ludovic Courtès <address@hidden>
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)