01/03: website: packages: Filter out deprecated packages.

[Ludovic Courtès]

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

commit 2f0483382fb10793fba4944d367aef404524bdf2
Author: Ludovic Courtès <address@hidden>
Date:   Thu Dec 6 18:14:22 2018 +0100

    website: packages: Filter out deprecated packages.
    
    * website/apps/packages/data.scm (%package-list): Filter out superseded
    packages.
---
 website/apps/packages/data.scm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/website/apps/packages/data.scm b/website/apps/packages/data.scm
index 148ec3d..e878b08 100644
--- a/website/apps/packages/data.scm
+++ b/website/apps/packages/data.scm
@@ -1,5 +1,5 @@
 ;;; GuixSD website --- GNU's advanced distro website
-;;; Copyright © 2013, 2014, 2015, 2016, 2017 Ludovic Courtès <address@hidden>
+;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès 
<address@hidden>
 ;;; Copyright © 2015 Mathieu Lirzin <address@hidden>
 ;;; Copyright © 2013 Alex Sassmannshausen <address@hidden>
 ;;; Copyright © 2017 Eric Bavier <address@hidden>
@@ -41,9 +41,11 @@
            (sort (parameterize ((%package-module-path (last-pair
                                                        
(%package-module-path))))
                    (fold-packages (lambda (package lst)
-                                    (cons (or (package-replacement package)
-                                              package)
-                                          lst))
+                                    (if (package-superseded package)
+                                        lst
+                                        (cons (or (package-replacement package)
+                                                  package)
+                                              lst)))
                                   '()))
                  (lambda (p1 p2)
                    (string<? (package-name p1)