branch master updated: website: Link to the new packages browser.

[Ludovic Courtès]

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

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

The following commit(s) were added to refs/heads/master by this push:
     new c9b6bc1  website: Link to the new packages browser.
c9b6bc1 is described below

commit c9b6bc1993cd59648d393b840f116d11903a3184
Author: Luis Felipe <luis.felipe.la@protonmail.com>
AuthorDate: Sat Nov 19 08:21:04 2022 -0500

    website: Link to the new packages browser.
    
    Update all package-related links to point to the newly deployed browser
    at https://packages.guix.gnu.org/.
    
    * website/apps/base/utils.scm (packages-url): New procedure.
    * website/apps/base/data.scm (contact-media): Use packages-url.
    * website/apps/base/templates/components.scm (navbar): Likewise.
    * website/apps/base/templates/contribute.scm (contribute-t): Likewise.
    * website/apps/base/templates/donate.scm (donate-t): Likewise.
    * website/apps/base/templates/home.scm (home-t): Likewise.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 website/apps/base/data.scm                 |  2 +-
 website/apps/base/templates/components.scm |  5 ++++-
 website/apps/base/templates/contribute.scm |  6 +++---
 website/apps/base/templates/donate.scm     |  2 +-
 website/apps/base/templates/home.scm       |  2 +-
 website/apps/base/utils.scm                | 14 +++++++++++++-
 6 files changed, 23 insertions(+), 8 deletions(-)

diff --git a/website/apps/base/data.scm b/website/apps/base/data.scm
index 4f1bb5f..ad44a10 100644
--- a/website/apps/base/data.scm
+++ b/website/apps/base/data.scm
@@ -190,7 +190,7 @@ het Nederlands.")
        "This is a private mailing list that anyone can post to to "
        ,(G_ `(a (@ (href ,(guix-url "security/"))) "report security issues"))
        " in Guix itself or in "
-       "the " ,(G_ `(a (@ (href ,(guix-url "packages/"))) "packages"))
+       "the " ,(G_ `(a (@ (href ,(packages-url))) "packages"))
        " it provides.  Posting here allows Guix developers to address
        the problem before it is widely publicized."))
     #:url "https://lists.gnu.org/mailman/listinfo/guix-security";
diff --git a/website/apps/base/templates/components.scm 
b/website/apps/base/templates/components.scm
index e1e0b23..5f4af9c 100644
--- a/website/apps/base/templates/components.scm
+++ b/website/apps/base/templates/components.scm
@@ -463,7 +463,10 @@ manual.
                         #:url (guix-url "contact/")))))
 
 
-      ,(C_ "website menu" (menu-item #:label "Packages" #:active-item 
active-item #:url (guix-url "packages/")))
+      ,(C_ "website menu"
+           (menu-item #:label "Packages"
+                      #:active-item active-item
+                      #:url (packages-url)))
       ,(C_ "website menu" (menu-item #:label "Blog" #:active-item active-item 
#:url (guix-url "blog/")))
 
       ,(menu-dropdown #:label (C_ "website menu" "Media") #:active-item 
active-item
diff --git a/website/apps/base/templates/contribute.scm 
b/website/apps/base/templates/contribute.scm
index 9b7987c..42ffcb9 100644
--- a/website/apps/base/templates/contribute.scm
+++ b/website/apps/base/templates/contribute.scm
@@ -125,7 +125,7 @@ Translation|I18N|L10N|Artwork") #\|)
         ,(G_
           `(p
             "Helping improve the documentation of the "
-            ,(G_ `(a (@ (href ,(guix-url "packages/"))) "packaged software"))
+            ,(G_ `(a (@ (href ,(packages-url))) "packaged software"))
             " is another way to contribute. "))
        (p
         ,(link-more
@@ -157,7 +157,7 @@ Translation|I18N|L10N|Artwork") #\|)
         ,(G_
           `(p
             "Check out the "
-            ,(G_ `(a (@ (href ,(guix-url "packages/")))
+            ,(G_ `(a (@ (href ,(packages-url)))
                      "package database"))
             " for a list of available packages, and the "
             ,(G_ `(a (@ (href 
"//issues.guix.gnu.org/search?query=tag%3Apatch+is%3Aopen"))
@@ -290,7 +290,7 @@ Translation|I18N|L10N|Artwork") #\|)
             " to have a look at the styleguides and the work of other 
translators"))
         ,(G_
           `(p
-            ,(G_ `(a (@ (href ,(guix-url "packages"))) "Software packages"))
+            ,(G_ `(a (@ (href ,(packages-url))) "Software packages"))
             " provided by the system may have their own translation
             tools.  Visit their websites and help translate. "))
        (p
diff --git a/website/apps/base/templates/donate.scm 
b/website/apps/base/templates/donate.scm
index 595e1d3..5257a57 100644
--- a/website/apps/base/templates/donate.scm
+++ b/website/apps/base/templates/donate.scm
@@ -41,7 +41,7 @@ system|GNU Hurd|GNU Guix package manager|Donations") #\|)
                 "build farm"))
           " of Guix runs on donated hardware and"
           " hosting. As the distribution grows (see the "
-          ,(G_ `(a (@ (href ,(guix-url "packages/"))) "package list"))
+          ,(G_ `(a (@ (href ,(packages-url))) "package list"))
           "), so do the computing and storage needs."))
 
       ,(G_
diff --git a/website/apps/base/templates/home.scm 
b/website/apps/base/templates/home.scm
index 47adeb7..7b72da8 100644
--- a/website/apps/base/templates/home.scm
+++ b/website/apps/base/templates/home.scm
@@ -136,7 +136,7 @@ goods readily available for installing with the "
 
        ,(button-big
          #:label (C_ "button" "ALL PACKAGES")
-        #:url (guix-url "packages/")
+        #:url (packages-url)
         #:light #true))
 
       ,(horizontal-separator #:light #true)
diff --git a/website/apps/base/utils.scm b/website/apps/base/utils.scm
index d172433..c69d034 100644
--- a/website/apps/base/utils.scm
+++ b/website/apps/base/utils.scm
@@ -41,7 +41,8 @@
             manual-devel-url
             manual-url-with-language
            number*
-           paginate))
+           paginate
+            packages-url))
 
 
 ;;;
@@ -172,6 +173,17 @@ manual.
   ;; The _ argument is a placeholder for an arg added by G_, cf. 
i18n-howto.txt.
   (manual-url subpath #:language language))
 
+(define* (packages-url #:optional (path ""))
+  "Append PATH to https://packages.guix.gnu.org/ URL.
+
+   PATH (string)
+     An optional relative URL path to a resource. For example:
+     'packages/guile/'.
+
+   RETURN VALUE (string)
+     A URL. For example: https://packages.guix.gnu.org/packages/guile/.";
+  (string-append "https://packages.guix.gnu.org/"; path))
+
 
 
 ;;;