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

View file

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