10/74: gnu: elisa: Use G-expressions.

[guix-commits]

z572 pushed a commit to branch qt-team
in repository guix.

commit fde78271dd3755ed496ff03ca24e8a56b4e8849f
Author: Zheng Junjie <z572@z572.online>
AuthorDate: Thu May 8 10:59:02 2025 +0800

    gnu: elisa: Use G-expressions.
    
    * gnu/packages/kde-multimedia.scm (elisa)[arguments]: Use G-expressions.
    
    Change-Id: I59834f6c1657e070dd51b2ae7eef794309223b96
---
 gnu/packages/kde-multimedia.scm | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/gnu/packages/kde-multimedia.scm b/gnu/packages/kde-multimedia.scm
index 045be8a9b4..eb0e24f886 100644
--- a/gnu/packages/kde-multimedia.scm
+++ b/gnu/packages/kde-multimedia.scm
@@ -238,21 +238,21 @@ This package is part of the KDE multimedia module.")
            ;; TODO: upnpqt https://gitlab.com/homeautomationqt/upnp-player-qt
            vlc))
     (arguments
-     `(#:qtbase ,qtbase
-       #:tests? #f ;; many tests fail
-       #:phases
-       (modify-phases %standard-phases
-         (add-before 'check 'start-xorg-server
-           (lambda* (#:key inputs #:allow-other-keys)
-             ;; The test suite requires a running X server, setting
-             ;; QT_QPA_PLATFORM=offscreen does not suffice.
-             (system "Xvfb :1 -screen 0 640x480x24 &")
-             (setenv "DISPLAY" ":1")))
-         (replace 'check
-           (lambda* (#:key tests? test-target #:allow-other-keys)
-             (when tests?
-               (setenv "CTEST_OUTPUT_ON_FAILURE" "1")
-               (invoke "dbus-launch" "make" test-target)))))))
+     (list #:qtbase qtbase
+           #:tests? #f ;; many tests fail
+           #:phases
+           #~(modify-phases %standard-phases
+               (add-before 'check 'start-xorg-server
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   ;; The test suite requires a running X server, setting
+                   ;; QT_QPA_PLATFORM=offscreen does not suffice.
+                   (system "Xvfb :1 -screen 0 640x480x24 &")
+                   (setenv "DISPLAY" ":1")))
+               (replace 'check
+                 (lambda* (#:key tests? test-target #:allow-other-keys)
+                   (when tests?
+                     (setenv "CTEST_OUTPUT_ON_FAILURE" "1")
+                     (invoke "dbus-launch" "make" test-target)))))))
     (home-page "https://apps.kde.org/elisa/";)
     (synopsis "Powerful music player for Plasma 5")
     (description "Elisa is a simple music player aiming to provide a nice