guix
/
maintenance
mirror of git://git.savannah.gnu.org/guix/maintenance.git
2
0
Fork 0
Code Issues Releases Wiki Activity

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.
This commit is contained in:
Christopher Baines 2023-09-04 21:21:02 +01:00
parent d30d215fc1
commit 55287db2de
No known key found for this signature in database
GPG Key ID: 5E28A33B0B84F577
1 changed files with 35 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
hydra/modules/sysadmin/packages.scm
View File

@ -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