04/04: hydra: bayfront: Add extra channels to hpcguix-web.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository maintenance.

commit a479b392395072c913f8f204139eba4c59b82f04
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Nov 20 21:20:15 2020 +0100

    hydra: bayfront: Add extra channels to hpcguix-web.
    
    * hydra/bayfront.scm (%hpcguix-web-channels): New variable.
    (services)[hpcguix-web-configuration]: Use it.
---
 hydra/bayfront.scm | 56 +++++++++++++++++++++++++++++++++++++++---------------
 1 file changed, 41 insertions(+), 15 deletions(-)

diff --git a/hydra/bayfront.scm b/hydra/bayfront.scm
index 6f291dc..268793c 100644
--- a/hydra/bayfront.scm
+++ b/hydra/bayfront.scm
@@ -145,6 +145,28 @@ Happy hacking!\n"))
   (list (local-file "keys/guix/harbourfront.guix.info-export.pub")
         (local-file "keys/guix/milano-guix-1.di.unimi.it-export.pub")))
 
+(define %hpcguix-web-channels
+  ;; Channels picked up and displayed by hpcguix-web.
+  #~(append %default-channels
+            (list (channel
+                   (name 'guix-hpc)
+                   (url "https://gitlab.inria.fr/guix-hpc/guix-hpc.git";))
+                  (channel
+                   (name 'guix-past)
+                   (url "https://gitlab.inria.fr/guix-hpc/guix-past";)
+                   (introduction
+                    (make-channel-introduction
+                     "0c119db2ea86a389769f4d2b9c6f5c41c027e336"
+                     (openpgp-fingerprint
+                      "3CE4 6455 8A84 FDC6 9DB4  0CFB 090B 1199 3D9A EBB5"))))
+                  (channel
+                   (name 'guix-science)
+                   (url "https://github.com/guix-science/guix-science.git";)
+                   (introduction
+                    (make-channel-introduction
+                     "b1fe5aaff3ab48e798a4cce02f0212bc91f423dc"
+                     (openpgp-fingerprint
+                      "CA4F 8CF4 37D7 478F DA05  5FD4 4213 7701 1A37 
8446")))))))
 
 (operating-system
   (host-name "bayfront")
@@ -237,21 +259,25 @@ Happy hacking!\n"))
                    (service hpcguix-web-service-type
                             (hpcguix-web-configuration
                              (specs
-                              #~(define site-config
-                                  (hpcweb-configuration
-                                   (title-prefix "Guix-HPC — ")
-                                   (package-filter-proc (const #t))
-                                   (package-page-extension-proc
-                                    (lambda (path)
-                                      (let ((url (string-append
-                                                  
"http://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"))))))))
+                              #~(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
+                                                   
"http://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)))))))
 
                    (service certbot-service-type %certbot-configuration)
                    (service goggles-service-type)