From cdfc996049df01e83dcd29f97af0347df2619722 Mon Sep 17 00:00:00 2001 From: ng0 Date: Thu, 12 Oct 2017 06:33:39 +0000 Subject: [PATCH 6/6] website: Change http to https in URLs. * website/apps/base/data.scm: http -> https. * website/apps/base/templates/contribute.scm: likewise. * website/apps/packages/templates/components.scm: likewise. * website/apps/packages/templates/detailed-index.scm: likewise. --- website/apps/base/data.scm | 2 +- website/apps/base/templates/contribute.scm | 2 +- website/apps/packages/templates/components.scm | 2 +- website/apps/packages/templates/detailed-index.scm | 4 ++-- 4 files changed, 5 insertions(+), 5 deletions(-) diff --git a/website/apps/base/data.scm b/website/apps/base/data.scm index 2ee3f3e..6294e3a 100644 --- a/website/apps/base/data.scm +++ b/website/apps/base/data.scm @@ -121,7 +121,7 @@ #:description '(p "Discussion about the development of the broader GNU system.") #:url "https://lists.gnu.org/mailman/listinfo/gnu-system-discuss" - #:log "http://lists.gnu.org/archive/html/gnu-system-discuss/") + #:log "https://lists.gnu.org/archive/html/gnu-system-discuss/") (contact #:name "GNU/Linux Libre Mailing List" diff --git a/website/apps/base/templates/contribute.scm b/website/apps/base/templates/contribute.scm index 7d7fb27..3cf26b7 100644 --- a/website/apps/base/templates/contribute.scm +++ b/website/apps/base/templates/contribute.scm @@ -212,7 +212,7 @@ (h3 (@ (id "translation")) "Translation") (p "You can help translate the " - (a (@ (href "http://translationproject.org/domain/guix.html")) + (a (@ (href "https://translationproject.org/domain/guix.html")) "software") " and the " (a (@ (href "https://translationproject.org/domain/guix-packages.html")) diff --git a/website/apps/packages/templates/components.scm b/website/apps/packages/templates/components.scm index bd1b3fb..4db8c4d 100644 --- a/website/apps/packages/templates/components.scm +++ b/website/apps/packages/templates/components.scm @@ -207,7 +207,7 @@ If the list of supported systems of the package is empty, return the string 'None'. Otherwise, return a list of links to systems builds in hydra." - (let ((build-url "http://hydra.gnu.org/job/gnu/master/") + (let ((build-url "https://hydra.gnu.org/job/gnu/master/") (package-id (string-append (package-name package) "-" (package-version package))) diff --git a/website/apps/packages/templates/detailed-index.scm b/website/apps/packages/templates/detailed-index.scm index 0ac234b..7dc6d7c 100644 --- a/website/apps/packages/templates/detailed-index.scm +++ b/website/apps/packages/templates/detailed-index.scm @@ -45,10 +45,10 @@ (@ (class "limit-width centered-block")) "GNU Guix provides " ,(number* (length packages)) " packages transparently " - (a (@ (href "http://hydra.gnu.org/jobset/gnu/master#tabs-status")) + (a (@ (href "https://hydra.gnu.org/jobset/gnu/master#tabs-status")) "available as pre-built binaries") ". These pages provide a complete list of the packages. Our " - (a (@ (href "http://hydra.gnu.org/jobset/gnu/master")) + (a (@ (href "https://hydra.gnu.org/jobset/gnu/master")) "continuous integration system") " shows their current build status " "(updated " ,(date->string (current-date) "~B ~e, ~Y") ").") -- 2.14.2