diff options
| -rw-r--r-- | website/www/download.scm | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/website/www/download.scm b/website/www/download.scm index 57aaffb..e8c58ef 100644 --- a/website/www/download.scm +++ b/website/www/download.scm @@ -22,6 +22,7 @@ (define-module (www download) #:use-module (www utils) #:use-module (www shared) + #:use-module (ice-9 match) #:export (download-page)) (define %usb-image-description @@ -78,16 +79,18 @@ dependencies.") (h2 ,title) (p ,description) (p "Download options:") - ,(map (lambda (file) - `(a (@ (href ,(cdr file)) (class "hlink-download")) - ,file)) + ,(map (match-lambda + ((title . url) + `(a (@ (href ,url) (class "hlink-download")) + ,title))) files) (p "Signatures: " - ,(map (lambda (file) - `(a (@ (href ,(string-append (cdr file) ".sig")) - (class "hlink-signature")) - ,(string-append (car file)))) - files)) + ,(map (match-lambda + ((title . url) + `(a (@ (href ,(string-append url ".sig")) + (class "hlink-signature")) + ,title))) + files)) (p (a (@ (href ,(guix-url manual))) "Installation instructions") "."))) |