me/guix
Archived
1
0
Fork 0
Code Activity

gnu: kwindowsystem: Use G-expressions.

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

Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
This commit is contained in:
Zheng Junjie 2023-07-12 12:04:55 +08:00 • committed by 宋文武
parent ad9768eb9c
commit e879b19ab3
No known key found for this signature in database
GPG key ID: D415BF253B515976
1 changed files with 15 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
gnu/packages/kde-frameworks.scm
View file

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