116/347: gnu: libqaccessibilityclient: Use gexps.

[guix-commits]

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

commit adf548682238fa706542061de17f106644e68c7d
Author: Zheng Junjie <zhengjunjie@iscas.ac.cn>
AuthorDate: Fri May 3 15:23:27 2024 +0800

    gnu: libqaccessibilityclient: Use gexps.
    
    * gnu/packages/kde.scm (libqaccessibilityclient)[arguments]: Use gexps.
    
    Change-Id: I9ec04aeff612886a1d15d53615e0d36f81c6cb66
---
 gnu/packages/kde.scm | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

diff --git a/gnu/packages/kde.scm b/gnu/packages/kde.scm
index feeefaab77..5731d16f53 100644
--- a/gnu/packages/kde.scm
+++ b/gnu/packages/kde.scm
@@ -885,23 +885,23 @@ compressed massif files can also be opened 
transparently.")
                 "0csxbwy4479196l32j4xnk672kiyggcaf3fi3q2cbj9dc94c8l2c"))))
     (build-system cmake-build-system)
     (arguments
-     `(#:tests? #f ;TODO: Failing tests
-       #:configure-flags
-       (list (string-append
-              "-DQT_MAJOR_VERSION="
-              ,(version-major
-                (package-version (this-package-input "qtbase")))))
-       #:phases (modify-phases %standard-phases
-                  (replace 'check
-                    (lambda* (#:key tests? #:allow-other-keys)
-                      (when tests?
-                        ;; make Qt render "offscreen", required for tests
-                        (setenv "QT_QPA_PLATFORM" "offscreen")
-                        ;; For missing '/etc/machine-id'
-                        (setenv "DBUS_FATAL_WARNINGS" "0")
-                        (setenv "HOME"
-                                (getcwd))
-                        (invoke "dbus-launch" "ctest")))))))
+     (list #:tests? #f ;TODO: Failing tests
+           #:configure-flags
+           #~(list (string-append
+                    "-DQT_MAJOR_VERSION="
+                    #$(version-major
+                       (package-version (this-package-input "qtbase")))))
+           #:phases #~(modify-phases %standard-phases
+                        (replace 'check
+                          (lambda* (#:key tests? #:allow-other-keys)
+                            (when tests?
+                              ;; make Qt render "offscreen", required for tests
+                              (setenv "QT_QPA_PLATFORM" "offscreen")
+                              ;; For missing '/etc/machine-id'
+                              (setenv "DBUS_FATAL_WARNINGS" "0")
+                              (setenv "HOME"
+                                      (getcwd))
+                              (invoke "dbus-launch" "ctest")))))))
     (native-inputs (list dbus extra-cmake-modules))
     (inputs (list qtbase-5))
     (home-page "https://invent.kde.org/libraries/libqaccessibilityclient";)