summaryrefslogtreecommitdiff
path: root/website
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-04-21 11:11:24 +0200
committerLudovic Courtès <ludo@gnu.org>2017-04-21 11:11:24 +0200
commit9e4311291f4844563b47b6a396e177f3c2668375 (patch)
tree3e767c722f434fdeffef902b429c4ebba1deafeb /website
parentd3da494dff829d71ba8baaa633986a252c5b75f0 (diff)
downloadguix-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.
Diffstat (limited to 'website')
-rw-r--r--website/www/packages.scm6
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)