gnu: kdeclarative: Use G-expressions.

* gnu/packages/kde-frameworks.scm (kdeclarative)[arguments]:
Rewrite as G-expressions.

Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
This commit is contained in:
Zheng Junjie 2023-07-13 22:23:28 +08:00 committed by 宋文武
parent 78785cbd3f
commit 013a7a8cf3
No known key found for this signature in database
GPG key ID: D415BF253B515976

View file

@ -2338,22 +2338,24 @@ their settings.")
qtdeclarative-5 qtdeclarative-5
solid)) solid))
(arguments (arguments
`(#:phases (list #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'check 'start-xorg-server (add-before 'check 'start-xorg-server
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
;; The test suite requires a running X server, setting ;; The test suite requires a running X server, setting
;; QT_QPA_PLATFORM=offscreen does not suffice. ;; QT_QPA_PLATFORM=offscreen does not suffice.
(system "Xvfb :1 -screen 0 640x480x24 &") (system "Xvfb :1 -screen 0 640x480x24 &")
(setenv "DISPLAY" ":1"))) (setenv "DISPLAY" ":1")))
(replace 'check (replace 'check
(lambda* (#:key tests? #:allow-other-keys) (lambda* (#:key tests? #:allow-other-keys)
(when tests? (when tests?
(setenv "HOME" (getcwd)) (setenv "HOME"
(setenv "XDG_RUNTIME_DIR" (getcwd)) (getcwd))
(setenv "QT_QPA_PLATFORM" "offscreen") (setenv "XDG_RUNTIME_DIR"
(setenv "DBUS_FATAL_WARNINGS" "0") (getcwd))
(invoke "dbus-launch" "ctest"))))))) (setenv "QT_QPA_PLATFORM" "offscreen")
(setenv "DBUS_FATAL_WARNINGS" "0")
(invoke "dbus-launch" "ctest")))))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")
(synopsis "Integration of QML and KDE work spaces") (synopsis "Integration of QML and KDE work spaces")
(description "KDeclarative provides integration of QML and KDE work spaces. (description "KDeclarative provides integration of QML and KDE work spaces.