02/02: website: Remove "http:" from git.savannah.gnu.org URLs.

[Ludovic Courtès]

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

commit f3ad5e8422b6375029e1526eeb9ea2909b157181
Author: Ludovic Courtès <address@hidden>
Date:   Tue Feb 14 17:12:44 2017 +0100

    website: Remove "http:" from git.savannah.gnu.org URLs.
    
    git.savannah.gnu.org is now available as HTTPS.
    Suggested by ng0 <address@hidden>.
    
    * website/www/contribute.scm (contribute-page): Remove "http:" from
    git.savannah.gnu.org URLs.
    * website/www/graphics.scm (graphics-page): Likewise.
    * website/www/packages.scm (location-url, package->sxml): Likewise.
    * website/www/shared.scm (html-page-footer): Likewise.
---
 website/www/contribute.scm | 6 +++---
 website/www/graphics.scm   | 2 +-
 website/www/packages.scm   | 4 ++--
 website/www/shared.scm     | 4 ++--
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/website/www/contribute.scm b/website/www/contribute.scm
index 5446256..3b85673 100644
--- a/website/www/contribute.scm
+++ b/website/www/contribute.scm
@@ -69,7 +69,7 @@ design and improve user interfaces, and create multimedia 
material for
 documentation, presentations, and promotional items. ")
                          (p "The artwork used in the different components of
 the project is available in the "
-                            (a (@ (href 
"http://git.savannah.gnu.org/cgit/guix/guix-artwork.git";))
+                            (a (@ (href 
"//git.savannah.gnu.org/cgit/guix/guix-artwork.git"))
                                "guix-artwork")
                             " repository. ")
                          (a (@ (href 
"http://lists.gnu.org/mailman/listinfo/guix-devel";)
@@ -117,7 +117,7 @@ distribution can be found "
                          (h2 (@ (id "programming")) "Programming")
                          (p "Source code is in the "
                              (a (@ (href
-                                    
"http://git.savannah.gnu.org/cgit/guix.git/";))
+                                    "//git.savannah.gnu.org/cgit/guix.git/"))
                                 "main Git repository") ".  "
                              "We use "
                             (a (@ (href ,(gnu-url "software/guile")))
@@ -197,7 +197,7 @@ tools.  Visit their websites and help translate. ")
                    "Other resources for contributors")
                (p "Documents, supporting material of previous talks, and
 auxiliary information useful to hackers and maintainers is available at "
-                  (a (@ (href 
"http://git.savannah.gnu.org/cgit/guix/maintenance.git";))
+                  (a (@ (href 
"//git.savannah.gnu.org/cgit/guix/maintenance.git"))
                      "git://git.sv.gnu.org/guix/maintenance.git")
                   ".")))
          ,(html-page-footer))))
diff --git a/website/www/graphics.scm b/website/www/graphics.scm
index 89d3f8e..a964083 100644
--- a/website/www/graphics.scm
+++ b/website/www/graphics.scm
@@ -55,7 +55,7 @@
                (p "The source files for these logotypes, their variants, and "
                   "other artwork used in the different components of the GNU "
                   "Guix project are available in the "
-                  (a (@ (href 
"http://git.savannah.gnu.org/cgit/guix/guix-artwork.git";))
+                  (a (@ (href 
"//git.savannah.gnu.org/cgit/guix/guix-artwork.git"))
                      "guix-artwork")
                   " repository, including the previous GNU Guix logotype "
                   "designed by Nikita Karetnikov in 2013 and "
diff --git a/website/www/packages.scm b/website/www/packages.scm
index 30153d5..f8a201d 100644
--- a/website/www/packages.scm
+++ b/website/www/packages.scm
@@ -98,7 +98,7 @@
      (and git? desc))))
 
 (define (location-url loc)
-  (string-append "http://git.savannah.gnu.org/cgit/guix.git/tree/";
+  (string-append "//git.savannah.gnu.org/cgit/guix.git/tree/"
                  (location-file loc)
                  (or (and=> (force git-description)
                             (cut string-append "?id=" <>))
@@ -143,7 +143,7 @@ decreasing, is 1."
       (match-lambda
        ((? string? patch)
         (string-append
-         "http://git.savannah.gnu.org/cgit/guix.git/tree/gnu/packages/patches/";
+         "//git.savannah.gnu.org/cgit/guix.git/tree/gnu/packages/patches/"
          (basename patch)))
        ((? origin? patch)
         (uri->string
diff --git a/website/www/shared.scm b/website/www/shared.scm
index 9695a50..89ca303 100644
--- a/website/www/shared.scm
+++ b/website/www/shared.scm
@@ -1,5 +1,5 @@
 ;;; GuixSD website --- GNU's advanced distro website
-;;; Copyright © 2015, 2016 Ludovic Courtès <address@hidden>
+;;; Copyright © 2015, 2016, 2017 Ludovic Courtès <address@hidden>
 ;;; Copyright © 2015 Mathieu Lirzin <address@hidden>
 ;;; Initially written by Luis Felipe López Acevedo <address@hidden>
 ;;; who waives all copyright interest on this file.
@@ -91,7 +91,7 @@ Functional package management,")))
        " by humans and powered by "
        (a (@ (href ,(gnu-url "software/guile")) (class "hlink-yellow"))
           "GNU Guile") ".  "
-        (a (@ (href 
"http://git.savannah.gnu.org/cgit/guix/guix-artwork.git/tree/website";)
+        (a (@ (href 
"//git.savannah.gnu.org/cgit/guix/guix-artwork.git/tree/website")
               (class "hlink-yellow"))
            "Source code")
         " under the "