me
/
guix
Archived
1
0
Fork 0
Code

gnu: kconfigwidgets: Use G-expressions. 

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

Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
master
Zheng Junjie 2023-07-12 14:51:11 +08:00 committed by 宋文武
parent 67b16f4002
commit d84277f4de
No known key found for this signature in database
GPG Key ID: D415BF253B515976
1 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2269,19 +2269,21 @@ KCModules can be created with the KConfigWidgets framework.")
qtbase-5
qttools-5))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch
(lambda _
(substitute* "src/khelpclient.cpp"
;; make QDirIterator follow symlinks
(("^\\s*(QDirIterator it\\(.*, QDirIterator::Subdirectories)(\\);)" _ a b)
(string-append a " | QDirIterator::FollowSymlinks" b)))))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(setenv "HOME" (getcwd))
(invoke "ctest" "-E" "kstandardactiontest")))))))
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch
(lambda _
(substitute* "src/khelpclient.cpp"
;; make QDirIterator follow symlinks
(("^\\s*(QDirIterator it\\(.*, QDirIterator::Subdirectories)(\\);)" _ a b)
(string-append a " | QDirIterator::FollowSymlinks" b)))))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(setenv "HOME"
(getcwd))
(invoke "ctest" "-E" "kstandardactiontest")))))))
(home-page "https://community.kde.org/Frameworks")
(synopsis "Widgets for configuration dialogs")
(description "KConfigWidgets provides easy-to-use classes to create