mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-17 08:27:47 -05:00
gnu: kconfigwidgets: Use G-expressions.
* gnu/packages/kde-frameworks.scm (kconfigwidgets)[arguments]: Rewrite as G-expressions. Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
This commit is contained in:
parent
67b16f4002
commit
d84277f4de
1 changed files with 15 additions and 13 deletions
|
@ -2269,19 +2269,21 @@ (define-public kconfigwidgets
|
||||||
qtbase-5
|
qtbase-5
|
||||||
qttools-5))
|
qttools-5))
|
||||||
(arguments
|
(arguments
|
||||||
`(#:phases
|
(list
|
||||||
(modify-phases %standard-phases
|
#:phases
|
||||||
(add-after 'unpack 'patch
|
#~(modify-phases %standard-phases
|
||||||
(lambda _
|
(add-after 'unpack 'patch
|
||||||
(substitute* "src/khelpclient.cpp"
|
(lambda _
|
||||||
;; make QDirIterator follow symlinks
|
(substitute* "src/khelpclient.cpp"
|
||||||
(("^\\s*(QDirIterator it\\(.*, QDirIterator::Subdirectories)(\\);)" _ a b)
|
;; make QDirIterator follow symlinks
|
||||||
(string-append a " | QDirIterator::FollowSymlinks" b)))))
|
(("^\\s*(QDirIterator it\\(.*, QDirIterator::Subdirectories)(\\);)" _ a b)
|
||||||
(replace 'check
|
(string-append a " | QDirIterator::FollowSymlinks" b)))))
|
||||||
(lambda* (#:key tests? #:allow-other-keys)
|
(replace 'check
|
||||||
(when tests?
|
(lambda* (#:key tests? #:allow-other-keys)
|
||||||
(setenv "HOME" (getcwd))
|
(when tests?
|
||||||
(invoke "ctest" "-E" "kstandardactiontest")))))))
|
(setenv "HOME"
|
||||||
|
(getcwd))
|
||||||
|
(invoke "ctest" "-E" "kstandardactiontest")))))))
|
||||||
(home-page "https://community.kde.org/Frameworks")
|
(home-page "https://community.kde.org/Frameworks")
|
||||||
(synopsis "Widgets for configuration dialogs")
|
(synopsis "Widgets for configuration dialogs")
|
||||||
(description "KConfigWidgets provides easy-to-use classes to create
|
(description "KConfigWidgets provides easy-to-use classes to create
|
||||||
|
|
Loading…
Reference in a new issue