iyzsong pushed a commit to branch kde-updates
in repository guix.
commit 039b976c395b1820d1cf8afe1cbc3e316b49e397
Author: Zheng Junjie <[email protected]>
AuthorDate: Thu Jul 13 22:44:55 2023 +0800
gnu: kcmutils: Use G-expressions.
* gnu/packages/kde-frameworks.scm (kcmutils)[arguments]:
Rewrite as G-expressions.
Signed-off-by: 宋文武 <[email protected]>
---
gnu/packages/kde-frameworks.scm | 36 +++++++++++++++++++++---------------
1 file changed, 21 insertions(+), 15 deletions(-)
diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm
index 2a811a928f..0f7cce2be7 100644
--- a/gnu/packages/kde-frameworks.scm
+++ b/gnu/packages/kde-frameworks.scm
@@ -2217,21 +2217,27 @@ using the XBEL format.")
(native-inputs
(list extra-cmake-modules))
(arguments
- `(#:phases
- (modify-phases %standard-phases
- (add-after 'unpack 'patch
- (lambda _
- (substitute* "src/kpluginselector.cpp"
- ;; make QDirIterator follow symlinks
- (("^\\s*(QDirIterator it\\(.*,
QDirIterator::Subdirectories)(\\);)" _ a b)
- (string-append a " | QDirIterator::FollowSymlinks" b)))
- (substitute* "src/kcmoduleloader.cpp"
- ;; print plugin name when loading fails
- (("^\\s*(qWarning\\(\\) << \"Error loading) (plugin:\")( <<
loader\\.errorString\\(\\);)" _ a b c)
- (string-append a " KCM plugin\" << mod.service()->library() <<
\":\"" c)))))
- (add-before 'check 'check-setup
- (lambda _
- (setenv "QT_QPA_PLATFORM" "offscreen"))))))
+ (list
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'patch
+ (lambda _
+ (substitute* "src/kpluginselector.cpp"
+ ;; make QDirIterator follow symlinks
+ (("^\\s*(QDirIterator it\\(.*,
QDirIterator::Subdirectories)(\\);)"
+ _ a b)
+ (string-append a
+ " | QDirIterator::FollowSymlinks" b)))
+ (substitute* "src/kcmoduleloader.cpp"
+ ;; print plugin name when loading fails
+ (("^\\s*(qWarning\\(\\) << \"Error loading) (plugin:\")( <<
loader\\.errorString\\(\\);)"
+ _ a b c)
+ (string-append a
+ " KCM plugin\" << mod.service()->library() <<
\":\""
+ c)))))
+ (add-before 'check 'check-setup
+ (lambda _
+ (setenv "QT_QPA_PLATFORM" "offscreen"))))))
(inputs
(list kauth
kcodecs
