branch master updated: sysadmin: qa-frontpage: Update to 0-14.c6e4a68.

[Christopher Baines]

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

cbaines pushed a commit to branch master
in repository maintenance.

The following commit(s) were added to refs/heads/master by this push:
     new 55287db  sysadmin: qa-frontpage: Update to 0-14.c6e4a68.
55287db is described below

commit 55287db2de3901459c8104543d93fb9ff48b12cc
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Mon Sep 4 21:21:02 2023 +0100

    sysadmin: qa-frontpage: Update to 0-14.c6e4a68.
    
    * hydra/modules/sysadmin/packages.scm (qa-frontpage): Update to
    0-14.c6e4a68.
    [arguments]: Update style.
    [native-inputs]: Add emacs-minimal and emacs-htmlize.
---
 hydra/modules/sysadmin/packages.scm | 65 ++++++++++++++++++++-----------------
 1 file changed, 35 insertions(+), 30 deletions(-)

diff --git a/hydra/modules/sysadmin/packages.scm 
b/hydra/modules/sysadmin/packages.scm
index 862c34e..9069c2a 100644
--- a/hydra/modules/sysadmin/packages.scm
+++ b/hydra/modules/sysadmin/packages.scm
@@ -20,6 +20,8 @@
   #:use-module (gnu packages autotools)
   #:use-module (gnu packages base)
   #:use-module (gnu packages bash)
+  #:use-module (gnu packages emacs)
+  #:use-module (gnu packages emacs-xyz)
   #:use-module (gnu packages guile)
   #:use-module (gnu packages guile-xyz)
   #:use-module (gnu packages package-management)
@@ -37,8 +39,8 @@
   #:use-module (srfi srfi-26))
 
 (define-public qa-frontpage
-  (let ((commit "4c77d2917ed9b5da6d8fde208fbc2ee841e3b906")
-        (revision "13"))
+  (let ((commit "c6e4a686bdbf386d81f45cb7021c516a526a4054")
+        (revision "14"))
     (package
       (name "guix-qa-frontpage")
       (version (git-version "0" revision commit))
@@ -50,38 +52,39 @@
                 (file-name (git-file-name name version))
                 (sha256
                  (base32
-                  "1vcp6wnv98g5fh7fk9xra0xdw2a2yq7ccn3w238hndy79qr01r2n"))))
+                  "0zgdbd4w26j8bmzzjwnk0vrdsvc4dc555rsssgmdng0p0j99mcr9"))))
       (build-system gnu-build-system)
       (arguments
-       `(#:modules (((guix build guile-build-system)
+       (list
+        #:modules `(((guix build guile-build-system)
                      #:select (target-guile-effective-version))
                     ,@%gnu-build-system-modules)
-         #:imported-modules ((guix build guile-build-system)
+        #:imported-modules `((guix build guile-build-system)
                              ,@%gnu-build-system-modules)
-         #:phases
-         (modify-phases %standard-phases
-           (add-after 'install 'wrap-executable
-             (lambda* (#:key inputs outputs target #:allow-other-keys)
-               (let* ((out (assoc-ref outputs "out"))
-                      (bin (string-append out "/bin"))
-                      (guile (assoc-ref inputs "guile"))
-                      (version (target-guile-effective-version))
-                      (scm (string-append out "/share/guile/site/" version))
-                      (go  (string-append out "/lib/guile/" version 
"/site-ccache")))
-                 (for-each
-                  (lambda (file)
-                    (simple-format (current-error-port) "wrapping: ~A\n" file)
-                    (wrap-program file
-                      `("PATH" ":" prefix
-                        (,(string-append (assoc-ref inputs "git")
-                                         "/bin")
-                         ,(string-append (assoc-ref inputs "openssh")
-                                         "/bin")))
-                      `("GUILE_LOAD_PATH" ":" prefix
-                        (,scm ,(getenv "GUILE_LOAD_PATH")))
-                      `("GUILE_LOAD_COMPILED_PATH" ":" prefix
-                        (,go ,(getenv "GUILE_LOAD_COMPILED_PATH")))))
-                  (find-files bin))))))))
+        #:phases
+        #~(modify-phases %standard-phases
+            (add-after 'install 'wrap-executable
+              (lambda* (#:key inputs outputs target #:allow-other-keys)
+                (let* ((out (assoc-ref outputs "out"))
+                       (bin (string-append out "/bin"))
+                       (guile (assoc-ref inputs "guile"))
+                       (version (target-guile-effective-version))
+                       (scm (string-append out "/share/guile/site/" version))
+                       (go  (string-append out "/lib/guile/" version 
"/site-ccache")))
+                  (for-each
+                   (lambda (file)
+                     (simple-format (current-error-port) "wrapping: ~A\n" file)
+                     (wrap-program file
+                       `("PATH" ":" prefix
+                         (,(string-append (assoc-ref inputs "git")
+                                          "/bin")
+                          ,(string-append (assoc-ref inputs "openssh")
+                                          "/bin")))
+                       `("GUILE_LOAD_PATH" ":" prefix
+                         (,scm ,(getenv "GUILE_LOAD_PATH")))
+                       `("GUILE_LOAD_COMPILED_PATH" ":" prefix
+                         (,go ,(getenv "GUILE_LOAD_COMPILED_PATH")))))
+                   (find-files bin))))))))
       (inputs
        (list guix
              guix-data-service
@@ -98,7 +101,9 @@
       (native-inputs
        (list autoconf
              automake
-             pkg-config))
+             pkg-config
+             emacs-minimal
+             emacs-htmlize))
       (synopsis "QA Frontpage for Guix")
       (description
        "This service assists with quality assurance within Guix.  Currently