From 0283d72728f27867851511e377a945145224e44c Mon Sep 17 00:00:00 2001 From: Leo Famulari Date: Tue, 23 May 2017 10:34:03 -0400 Subject: 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/static/base/img/installer.svg: Add a new logo for the VM image and rename to ... * website/static/base/img/download-icons.svg: ... this. --- website/static/base/img/QEMU-package.png | Bin 0 -> 8131 bytes website/static/base/img/download-icons.svg | 887 +++++++++++++++++++++++++++++ website/static/base/img/installer.svg | 776 ------------------------- website/www/download.scm | 24 +- 4 files changed, 910 insertions(+), 777 deletions(-) create mode 100644 website/static/base/img/QEMU-package.png create mode 100644 website/static/base/img/download-icons.svg delete mode 100644 website/static/base/img/installer.svg diff --git a/website/static/base/img/QEMU-package.png b/website/static/base/img/QEMU-package.png new file mode 100644 index 0000000..4a36207 Binary files /dev/null and b/website/static/base/img/QEMU-package.png differ diff --git a/website/static/base/img/download-icons.svg b/website/static/base/img/download-icons.svg new file mode 100644 index 0000000..98095ab --- /dev/null +++ b/website/static/base/img/download-icons.svg @@ -0,0 +1,887 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + image/svg+xml + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + beta + beta + + + + + + + + + + + + + + + + + + src + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + QEMU + + + + diff --git a/website/static/base/img/installer.svg b/website/static/base/img/installer.svg deleted file mode 100644 index e97a06f..0000000 --- a/website/static/base/img/installer.svg +++ /dev/null @@ -1,776 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - image/svg+xml - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - beta - beta - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - src - - - - - - - - - diff --git a/website/www/download.scm b/website/www/download.scm index 6d1cf54..d3c58ee 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 + "QEMU-package.png") + (define (ftp-url file) (string-append "ftp://alpha.gnu.org/gnu/guix/" file)) @@ -75,6 +84,13 @@ 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")))) + archs)) + (define (guix-files archs) (map (lambda (arch) (cons arch (https-url (string-append "guix-binary-" (latest-guix-version) @@ -149,7 +165,13 @@ 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) + " Virtual Machine Image") + #:files (guixsd-vm-image-files '("x86_64")) + #:description %vm-image-description + #:manual %vm-image-manual + #:image %vm-image-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 " -- cgit v1.2.3