summaryrefslogtreecommitdiff
path: root/website/apps/download/data.scm
blob: 5f10262a6438cf56d8306bec528881c3b014d090 (about) (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
;;; GNU Guix web site
;;; Initially written by sirgazil who waves all
;;; copyright interest on this file.

(define-module (apps download data)
  #:use-module (apps base utils)
  #:use-module (apps download types)
  #:export (system-downloads))


;;;
;;; Data.
;;;


(define system-downloads
  (list
   (download
    #:title (string-append "GNU Guix System " (latest-guix-version))
    #:description
    `(div
      (div
       (@ (class "message-box msg-info"))
       (span (@ (class "msg-label")) "Note ")
       "The Guix System distribution is beta software, "
       "which means it is "
       (a
	(@ (href ,(manual-url "Limitations.html")))
	"not production-ready")
       ".  But you can "
       (a (@ (href ,(guix-url "contribute"))) "help") "!")
      (p "USB/DVD ISO installer of the standalone Guix System."))
    #:image (guix-url "static/base/img/GuixSD-package.png")
    #:base-url (string-append "https://ftp.gnu.org/gnu/guix/guix-system-install-"
			      (latest-guix-version) ".")
    #:variants (list (variant "x86_64" "x86_64-linux.iso.xz")
		     (variant "i686" "i686-linux.iso.xz"))
    #:manual (manual-url "System-Installation.html"))

   (download
    #:title (string-append "GNU Guix " (latest-guix-version) " QEMU Image")
    #:description
    `(div
      (p "QCOW2 virtual machine (VM) image."))
    #:image (guix-url "static/base/img/QEMU-package.png")
    #:base-url (string-append "https://ftp.gnu.org/gnu/guix/guix-system-vm-image-"
			      (latest-guix-version) ".")
    #:variants (list (variant "x86_64" "x86_64-linux.xz"))
    #:manual (manual-url "Running-Guix-in-a-VM.html"))

   (download
    #:title (string-append "GNU Guix " (latest-guix-version) " Binary")
    #:description
    '(p
      "Self-contained tarball providing binaries for Guix and its
      dependencies, to be installed on top of your Linux-based system.")
    #:image (guix-url "static/base/img/Guix-package.png")
    #:base-url (string-append "https://ftp.gnu.org/gnu/guix/guix-binary-"
			      (latest-guix-version) ".")
    #:variants (list (variant "x86_64" "x86_64-linux.tar.xz")
		     (variant "i686" "i686-linux.tar.xz")
		     (variant "armhf" "armhf-linux.tar.xz")
                     (variant "aarch64" "aarch64-linux.tar.xz"))
    #:manual (manual-url "Binary-Installation.html"))

   (download
    #:title (string-append "GNU Guix " (latest-guix-version) " Source")
    #:description '(p "Source code distribution.")
    #:image (guix-url "static/base/img/src-package.png")
    #:base-url (string-append "https://ftp.gnu.org/gnu/guix/guix-"
			      (latest-guix-version) ".")
    #:variants (list (variant "tarball" "tar.gz"))
    #:manual (manual-url "Requirements.html"))))