summaryrefslogtreecommitdiff
path: root/website/apps/download/templates/download.scm
blob: 9218531bd1a707eacf0b43fd29553c702903f8a6 (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
74
75
;;; GNU Guix web site
;; Copyright © 2017 ng0 <ng0@infotropique.org>
;;; Initially written by sirgazil who waves all
;;; copyright interest on this file.
;;;
;;; This file is part of the GNU Guix web site.
;;;
;;; The GNU Guix web site is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU Affero General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; The GNU Guix web site is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU Affero General Public License for more details.
;;;
;;; You should have received a copy of the GNU Affero General Public License
;;; along with the GNU Guix web site.  If not, see <http://www.gnu.org/licenses/>.

(define-module (apps download templates download)
  #:use-module (apps base templates theme)
  #:use-module (apps base types)
  #:use-module (apps base utils)
  #:use-module (apps download templates components)
  #:export (download-t))


(define (download-t context)
  "Return the Download page in SHTML."
  (theme
   #:title '("Download")
   #:description
   "Installers and source files for GNU Guix.  GNU Guix can be
   installed on different GNU/Linux distributions."
   #:keywords
   '("GNU" "Linux" "Unix" "Free software" "Libre software"
     "Operating system" "GNU Hurd" "GNU Guix package manager"
     "Installer" "Source code" "Package manager")
   #:active-menu-item "Download"
   #:css (list
	  (guix-url "static/base/css/page.css")
	  (guix-url "static/base/css/download.css"))
   #:crumbs (list (crumb "Download" "./"))
   #:content
   `(main
     (section
      (@ (class "page"))
      (h2 "Download")

      (p
       (@ (class "centered-block limit-width"))
       "As of version " ,(latest-guix-version)
       ", the standalone Guix System "
       (a
	(@ (href ,(manual-url "System-Installation.html")))
	"can be installed")
       " on an i686, x86_64, ARMv7, or AArch64 machine.  It uses the "
       (a (@ (href ,(gnu-url "software/linux-libre"))) "Linux-Libre")
       " kernel and the "
       (a (@ (href ,(gnu-url "software/shepherd"))) "GNU Shepherd")
       " init system. Alternately, GNU Guix
       can be installed as an additional package manager on top of an
       installed Linux-based system.")

      (div
       (@ (class "centered-text"))
       ,@(map download (context-datum context "downloads")))

      (p
       (@ (class "centered-block limit-width"))
       "Source code and binaries for the Guix System distribution ISO
       image as well as GNU Guix can be found on the GNU servers at "
       (a (@ (href "https://alpha.gnu.org/gnu/guix/"))
	  "https://alpha.gnu.org/gnu/guix/") ".")))))