branch master updated: website: Use ftpmirror.gnu.org.

[Tobias Geerinckx-Rice]

This is an automated email from the git hooks/post-receive script.

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

The following commit(s) were added to refs/heads/master by this push:
     new d93973e  website: Use ftpmirror.gnu.org.
d93973e is described below

commit d93973e6689127feb9e1c364c747cbca54c9c6f9
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Dec 18 01:00:00 2022 +0100

    website: Use ftpmirror.gnu.org.
    
    This is a nice and recommended way to reduce load on ftp.gnu.org.  See
    <https://www.gnu.org/server/mirror.en.html>.
    
    Suggested by a dark stranger, to lechner in #guix.
    
    * website/apps/download/data.scm (system-downloads):
    Substitute ftpmirror.gnu.org for ftp.gnu.org.
    * website/apps/download/templates/download.scm (download-t): Likewise.
    * website/posts/gnu-guix-1.3.0-released.md (Try it!): Likewise.
---
 website/apps/download/data.scm               | 8 ++++----
 website/apps/download/templates/download.scm | 4 ++--
 website/apps/download/types.scm              | 2 +-
 website/posts/gnu-guix-1.3.0-released.md     | 2 +-
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/website/apps/download/data.scm b/website/apps/download/data.scm
index 2e54bb4..0522b42 100644
--- a/website/apps/download/data.scm
+++ b/website/apps/download/data.scm
@@ -23,7 +23,7 @@
     `(div
       ,(G_ `(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-";
+    #:base-url (string-append 
"https://ftpmirror.gnu.org/gnu/guix/guix-system-install-";
                              (latest-guix-version) ".")
     #:variants (list (variant "x86_64" "x86_64-linux.iso")
                     (variant "i686" "i686-linux.iso"))
@@ -39,7 +39,7 @@
     `(div
       ,(G_ `(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-";
+    #:base-url (string-append 
"https://ftpmirror.gnu.org/gnu/guix/guix-system-vm-image-";
                              (latest-guix-version) ".")
     #:variants (list (variant "x86_64" "x86_64-linux.qcow2"))
     ;; TRANSLATORS: Running Guix in a VM is a section name in the
@@ -56,7 +56,7 @@
        "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-";
+    #:base-url (string-append "https://ftpmirror.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")
@@ -73,7 +73,7 @@
                 (string-append "GNU Guix " (latest-guix-version) " Source"))
     #:description (G_ '(p "Source code distribution."))
     #:image (guix-url "static/base/img/src-package.png")
-    #:base-url (string-append "https://ftp.gnu.org/gnu/guix/guix-";
+    #:base-url (string-append "https://ftpmirror.gnu.org/gnu/guix/guix-";
                              (latest-guix-version) ".")
     #:variants (list (variant "tarball" "tar.gz"))
     ;; TRANSLATORS: Requirements is a section name in the English (en)
diff --git a/website/apps/download/templates/download.scm 
b/website/apps/download/templates/download.scm
index bcf3cd2..4ee8e3b 100644
--- a/website/apps/download/templates/download.scm
+++ b/website/apps/download/templates/download.scm
@@ -76,8 +76,8 @@ Package manager") #\|)
           (@ (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://ftp.gnu.org/gnu/guix/";))
-             "https://ftp.gnu.org/gnu/guix/";)
+          (a (@ (href "https://ftpmirror.gnu.org/gnu/guix/";))
+             "https://ftpmirror.gnu.org/gnu/guix/";)
           ".  Older releases can still be found on "
           (a (@ (href "https://alpha.gnu.org/gnu/guix/";))
              "alpha.gnu.org") "."))))))
diff --git a/website/apps/download/types.scm b/website/apps/download/types.scm
index 6d43a95..ba79b05 100644
--- a/website/apps/download/types.scm
+++ b/website/apps/download/types.scm
@@ -49,7 +49,7 @@
 ;;; base-url (string)
 ;;;   The base URL where all the variants of the download can be
 ;;;   found. For example:
-;;;   "https://ftp.gnu.org/gnu/guix/guix-system-install-0.12.0";
+;;;   "https://ftpmirror.gnu.org/gnu/guix/guix-system-install-0.12.0";
 ;;;
 ;;; variants (list)
 ;;;   A list of <variant> objects that represent the different flavors
diff --git a/website/posts/gnu-guix-1.3.0-released.md 
b/website/posts/gnu-guix-1.3.0-released.md
index 17d5295..e176ad1 100644
--- a/website/posts/gnu-guix-1.3.0-released.md
+++ b/website/posts/gnu-guix-1.3.0-released.md
@@ -283,7 +283,7 @@ to proceed to install the Guix binary on your system 
without any
 prompt!
 
 You may also be interested in trying the [Guix System demonstration VM
-image](https://ftp.gnu.org/gnu/guix/guix-system-vm-image-1.3.0.x86_64-linux.qcow2)
+image](https://ftpmirror.gnu.org/gnu/guix/guix-system-vm-image-1.3.0.x86_64-linux.qcow2)
 which now supports clipboard integration with the host and dynamic
 resizing thanks to the SPICE protocol, which we hope will improve the
 user experience.