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

git.savannah.gnu.org is now available as HTTPS.
Suggested by ng0 <contact.ng0@cryptolab.net>.

* 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.

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 <ludo@gnu.org>
+;;; Copyright © 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2015 Mathieu Lirzin <mthl@openmailbox.org>
 ;;; Initially written by Luis Felipe López Acevedo <felipe.lopez@openmailbox.org>
 ;;; 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 "