06/06: website: Adjust for 0.14.0.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix-artwork.

commit a38903cdee4aa90918fc6b1c088bd80ecdc183a2
Author: Ludovic Courtès <address@hidden>
Date:   Thu Dec 7 11:14:49 2017 +0100

    website: Adjust for 0.14.0.
    
    * website/apps/base/utils.scm (latest-guix-version): Bump.
    * website/apps/download/data.scm (system-downloads): Mention
    USB/DVD/ISO.
    * website/apps/download/templates/download.scm (download-t): Simplify
    footer and mention ISO; remove FTP address.
---
 website/apps/base/utils.scm                  |  2 +-
 website/apps/download/data.scm               |  2 +-
 website/apps/download/templates/download.scm | 11 +++--------
 3 files changed, 5 insertions(+), 10 deletions(-)

diff --git a/website/apps/base/utils.scm b/website/apps/base/utils.scm
index e081652..ce08f85 100644
--- a/website/apps/base/utils.scm
+++ b/website/apps/base/utils.scm
@@ -46,7 +46,7 @@
   (make-parameter "/software/guix/")) ; Path to GNU Guix site in gnu.org
 
 (define latest-guix-version
-  (make-parameter "0.13.0"))
+  (make-parameter "0.14.0"))
 
 
 
diff --git a/website/apps/download/data.scm b/website/apps/download/data.scm
index 84b14af..bd325cf 100644
--- a/website/apps/download/data.scm
+++ b/website/apps/download/data.scm
@@ -29,7 +29,7 @@
        "not production-ready")
        ".  But you can "
        (a (@ (href ,(guix-url "contribute"))) "help") "!")
-      (p "USB installer of the Guix System Distribution."))
+      (p "USB/DVD ISO installer of the Guix System Distribution."))
     #:image (guix-url "static/base/img/GuixSD-package.png")
     #:base-url (string-append 
"https://alpha.gnu.org/gnu/guix/guixsd-usb-install-";
                              (latest-guix-version) ".")
diff --git a/website/apps/download/templates/download.scm 
b/website/apps/download/templates/download.scm
index c7457d8..aebfebd 100644
--- a/website/apps/download/templates/download.scm
+++ b/website/apps/download/templates/download.scm
@@ -70,12 +70,7 @@
 
       (p
        (@ (class "centered-block limit-width"))
-       "Source code for the Guix System Distribution USB installation
-       images as well as GNU Guix can be found on the GNU ftp server
-       for " (em "alpha") " releases: "
+       "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/";)
-       " (via HTTP) and "
-       (a (@ (href "ftp://alpha.gnu.org/gnu/guix/";))
-         "ftp://alpha.gnu.org/gnu/guix/";)
-       " (via FTP). ")))))
+         "https://alpha.gnu.org/gnu/guix/";) ".")))))