me
/
guix
Archived
1
0
Fork 0
Code

gnu: kcmutils: Use G-expressions. 

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

Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
master
Zheng Junjie 2023-07-13 22:44:55 +08:00 committed by 宋文武
parent 2a27e67db3
commit 039b976c39
No known key found for this signature in database
GPG Key ID: D415BF253B515976
1 changed files with 21 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
gnu/packages/kde-frameworks.scm
View File

@ -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