21/332: gnu: kwindowsystem: Use G-expressions.

[guix-commits]

iyzsong pushed a commit to branch kde-updates
in repository guix.

commit e879b19ab3a49c54559a29bc83045c801838535b
Author: Zheng Junjie <873216071@qq.com>
AuthorDate: Wed Jul 12 12:04:55 2023 +0800

    gnu: kwindowsystem: Use G-expressions.
    
    * gnu/packages/kde-frameworks.scm (kwindowsystem)[arguments]:
    Rewrite as G-expressions.
    
    Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
---
 gnu/packages/kde-frameworks.scm | 29 +++++++++++++++--------------
 1 file changed, 15 insertions(+), 14 deletions(-)

diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm
index aa53b5849a..b8ffbdb9f1 100644
--- a/gnu/packages/kde-frameworks.scm
+++ b/gnu/packages/kde-frameworks.scm
@@ -1194,20 +1194,21 @@ configuration pages, message boxes, and password 
requests.")
            xcb-util-keysyms
            xcb-util-wm))
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (replace 'check
-           (lambda* (#:key tests? #:allow-other-keys)
-             ;; The test suite requires a running window anager
-             (when tests?
-               (setenv "XDG_RUNTIME_DIR" "/tmp")
-               (system "Xvfb :1 -ac -screen 0 640x480x24 &")
-               (setenv "DISPLAY" ":1")
-               (sleep 5) ;; Give Xvfb a few moments to get on it's feet
-               (system "openbox &")
-               (setenv "CTEST_OUTPUT_ON_FAILURE" "1")
-               (setenv "DBUS_FATAL_WARNINGS" "0")
-               (invoke "dbus-launch" "ctest")))))))
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (replace 'check
+            (lambda* (#:key tests? #:allow-other-keys)
+              ;; The test suite requires a running window anager
+              (when tests?
+                (setenv "XDG_RUNTIME_DIR" "/tmp")
+                (system "Xvfb :1 -ac -screen 0 640x480x24 &")
+                (setenv "DISPLAY" ":1")
+                (sleep 5) ;; Give Xvfb a few moments to get on it's feet
+                (system "openbox &")
+                (setenv "CTEST_OUTPUT_ON_FAILURE" "1")
+                (setenv "DBUS_FATAL_WARNINGS" "0")
+                (invoke "dbus-launch" "ctest")))))))
     (home-page "https://community.kde.org/Frameworks";)
     (synopsis "KDE access to the windowing system")
     (description "KWindowSystem provides information about and allows