From 584a9dfb224de28dc40692d2957d2301952378c2 Mon Sep 17 00:00:00 2001 From: Leo Famulari Date: Sun, 14 May 2017 15:03:57 -0400 Subject: [PATCH] website: downloads: Mention the VM image. * website/www/download.scm (%vm-image-description, %vm-image-manual, %vm-image-image): New variables. (guixsd-vm-image-files): New procedure. (download-page): Use guixsd-vm-image-files. --- website/www/download.scm | 22 +++++++++++++++++++++- 1 file changed, 21 insertions(+), 1 deletion(-) diff --git a/website/www/download.scm b/website/www/download.scm index 887c6db..98f03ee 100644 --- a/website/www/download.scm +++ b/website/www/download.scm @@ -62,6 +62,15 @@ dependencies.") (define %guix-src-image "src-package.png") +(define %vm-image-description + "Virtual machine (QEMU) image of GuixSD.") + +(define %vm-image-manual + "manual/html_node/Running-GuixSD-in-a-VM.html") + +(define %vm-image-image + "GuixSD-package.png") + (define (ftp-url file) (string-append "ftp://alpha.gnu.org/gnu/guix/" file)) @@ -75,6 +84,12 @@ dependencies.") "-linux.xz")))) archs)) +(define (guixsd-vm-image-files archs) + (map (lambda (arch) + (cons arch (https-url (string-append "guixsd-vm-image-" + (latest-guix-version) "." arch + "-linux.xz")))))) + (define (guix-files archs) (map (lambda (arch) (cons arch (https-url (string-append "guix-binary-" (latest-guix-version) @@ -150,7 +165,12 @@ Linux-based system.") #:files (guix-source-files '("tarball")) #:description %source-tarball-description #:manual %source-tarball-manual - #:image %guix-src-image)) + #:image %guix-src-image) + ,(download-box (string-append "GuixSD " (latest-guix-version)) + #:files (guixsd-vm-image-files '("x86_64")) + #:description %vm-image-description + #:manual %vm-image-manual + #:image %guixsd-vm-image)) (p "Source code for the Guix System Distribution USB installation images as well as GNU Guix can be found on the GNU ftp server for " -- 2.13.0