01/01: website: Fix URL to Guix IRC logs.

[Luis Felipe López Acevedo]

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

commit d77fa3b39b761c18a53716f6205d5ced650396f7
Author: sirgazil <address@hidden>
Date:   Thu Feb 7 11:59:19 2019 -0500

    website: Fix URL to Guix IRC logs.
    
    * website/apps/base/data.scm (contact-media): Use new URL.
    * website/apps/base/templates/help.scm (help-t): Ditto.
    * website/apps/base/templates/irc.scm (irc-t): Ditto.
    * website/apps/base/utils.scm (guix-irc-log-url): New variable.
---
 website/apps/base/data.scm           | 2 +-
 website/apps/base/templates/help.scm | 4 +---
 website/apps/base/templates/irc.scm  | 2 +-
 website/apps/base/utils.scm          | 3 +++
 4 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/website/apps/base/data.scm b/website/apps/base/data.scm
index cea8012..b8cea50 100644
--- a/website/apps/base/data.scm
+++ b/website/apps/base/data.scm
@@ -24,7 +24,7 @@
       with the community about GNUÂ Guix or to get help in
       real-time.")
     #:url (guix-url "contact/irc/")
-    #:log "https://gnunet.org/bot/log/guix/";)
+    #:log guix-irc-log-url)
 
    (contact
     #:name "Info Mailing List"
diff --git a/website/apps/base/templates/help.scm 
b/website/apps/base/templates/help.scm
index 5d747e0..d6b9815 100644
--- a/website/apps/base/templates/help.scm
+++ b/website/apps/base/templates/help.scm
@@ -104,9 +104,7 @@
        (p
         "The " (code "#guix") " channel is logged. Previous
          conversations can be browsed online. See the "
-        (a (@ (href "https://gnunet.org/bot/log/guix/";))
-           "channel logs")
-        ". ")
+        (a (@ (href ,guix-irc-log-url)) "channel logs") ". ")
        (p
         ,(link-more
           #:label "Connect"
diff --git a/website/apps/base/templates/irc.scm 
b/website/apps/base/templates/irc.scm
index 3d02eae..9b09775 100644
--- a/website/apps/base/templates/irc.scm
+++ b/website/apps/base/templates/irc.scm
@@ -45,7 +45,7 @@
          "IRC client")
        " of your preference. Note that the conversations that happen
        on the " (code "#guix") " channel are logged ("
-       (a (@ (href "https://gnunet.org/bot/log/guix";)) "browse the log")
+       (a (@ (href ,guix-irc-log-url)) "browse the log")
        ").")
 
       (iframe
diff --git a/website/apps/base/utils.scm b/website/apps/base/utils.scm
index 1e46a5b..e370d35 100644
--- a/website/apps/base/utils.scm
+++ b/website/apps/base/utils.scm
@@ -31,6 +31,7 @@
   #:use-module (srfi srfi-1)
   #:export (gnu-url
            guix-git-tree-url
+           guix-irc-log-url
            guix-url
            latest-guix-version
            manual-url
@@ -42,6 +43,8 @@
 ;;; Guix variables.
 ;;;
 
+(define guix-irc-log-url "https://bayfront.guixsd.org/.well-known/logs/";)
+
 (define guix-root-url-path
   (if (getenv "GUIX_WEB_SITE_INFO")
       (make-parameter "/")