branch master updated: hydra: bayfront: Update configuration for hpcguix-web 0.3.0.

[Ludovic Courtès]

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

civodul pushed a commit to branch master
in repository maintenance.

The following commit(s) were added to refs/heads/master by this push:
     new b4c438c  hydra: bayfront: Update configuration for hpcguix-web 0.3.0.
b4c438c is described below

commit b4c438c113f16c80218a024483ad0be589aa6276
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Jan 22 18:18:47 2023 +0100

    hydra: bayfront: Update configuration for hpcguix-web 0.3.0.
    
    * hydra/bayfront.scm <hpcguix-web-configuration>: Adjust spec to return
    an <hpcweb-configuration> directly.  Update menu.
---
 hydra/bayfront.scm | 37 +++++++++++++++++++------------------
 1 file changed, 19 insertions(+), 18 deletions(-)

diff --git a/hydra/bayfront.scm b/hydra/bayfront.scm
index 22976d3..8a2c86e 100644
--- a/hydra/bayfront.scm
+++ b/hydra/bayfront.scm
@@ -1,5 +1,5 @@
 ;; OS configuration for bayfront
-;; Copyright © 2016-2022 Ludovic Courtès <ludo@gnu.org>
+;; Copyright © 2016-2023 Ludovic Courtès <ludo@gnu.org>
 ;; Copyright © 2016, 2017, 2018, 2019, 2020 Andreas Enge <andreas@enge.fr>
 ;; Copyright © 2017, 2019 Ricardo Wurmus <rekado@elephly.net>
 ;; Copyright © 2019 Julien Lepiller <julien@lepiller.eu>
@@ -1079,23 +1079,24 @@ add_header Content-Type text/plain;")))
                #~(begin
                    (use-modules (guix channels))
 
-                   (define site-config
-                     (hpcweb-configuration
-                      (title-prefix "Guix-HPC — ")
-                      (package-filter-proc (const #t))
-                      (package-page-extension-proc
-                       (lambda (path)
-                         (let ((url (string-append
-                                     "https://data.guix.gnu.org";
-                                     "/repository/1/branch/master/package/"
-                                     (basename path))))
-                           `(div
-                             (a (@ (href ,url))
-                                "View package version history.")))))
-                      (menu '(("/about"  "ABOUT")
-                              ("/browse" "BROWSE")
-                              ("/blog"   "BLOG")))
-                      (channels #$%hpcguix-web-channels)))))))
+                   (hpcweb-configuration
+                    (title-prefix "Guix-HPC — ")
+                    (package-filter-proc (const #t))
+                    (package-page-extension-proc
+                     (lambda (path)
+                       (let ((url (string-append
+                                   "https://data.guix.gnu.org";
+                                   "/repository/1/branch/master/package/"
+                                   (basename path))))
+                         `(div
+                           (a (@ (href ,url))
+                              "View package version history.")))))
+                    (menu '(("/about"    "ABOUT")
+                            ("/browse"   "PACKAGES")
+                            ("/channels" "CHANNELS")
+                            ("/events"   "EVENTS")
+                            ("/blog"     "BLOG")))
+                    (channels #$%hpcguix-web-channels))))))
 
     (service certbot-service-type %certbot-configuration)