diff options
| author | Zheng Junjie <873216071@qq.com> | 2023-07-12 14:13:17 +0800 |
|---|---|---|
| committer | 宋文武 <iyzsong@member.fsf.org> | 2023-08-02 22:27:39 +0800 |
| commit | 070c724a23a29718746c40839185816cc8481315 (patch) | |
| tree | 052754ff7bcb38bd3bb07643eea3565cbebccc5d /gnu/packages/kde-frameworks.scm | |
| parent | c11c2343c9a6dc13cb7b54ffa4f894731a34d811 (diff) | |
| download | guix-070c724a23a29718746c40839185816cc8481315.tar.gz | |
gnu: kpackage: Use G-expressions.
* gnu/packages/kde-frameworks.scm (kpackage)[arguments]: Rewrite as G-expressions. Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
Diffstat (limited to 'gnu/packages/kde-frameworks.scm')
| -rw-r--r-- | gnu/packages/kde-frameworks.scm | 55 |
1 files changed, 30 insertions, 25 deletions
diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm index c18bf4e1d7..98e2a5bb72 100644 --- a/gnu/packages/kde-frameworks.scm +++ b/gnu/packages/kde-frameworks.scm @@ -1928,31 +1928,36 @@ covers feedback and persistent events.") ki18n qtbase-5)) (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch - (lambda _ - (substitute* "src/kpackage/package.cpp" - (("externalPaths.false.") "externalPaths(true)")) - ;; Make QDirIterator follow symlinks - (substitute* '("src/kpackage/packageloader.cpp") - (("^\\s*(const QDirIterator::IteratorFlags flags = QDirIterator::Subdirectories)(;)" _ a b) - (string-append a " | QDirIterator::FollowSymlinks" b)) - (("^\\s*(QDirIterator it\\(.*, QDirIterator::Subdirectories)(\\);)" _ a b) - (string-append a " | QDirIterator::FollowSymlinks" b))))) - (add-after 'unpack 'patch-tests - (lambda _ - ;; /bin/ls doesn't exist in the build-container use /etc/passwd - (substitute* "autotests/packagestructuretest.cpp" - (("(addDirectoryDefinition\\(\")bin(\".*\")bin(\".*\")bin\"" - _ a b c) - (string-append a "etc" b "etc" c "etc\"")) - (("filePath\\(\"bin\", QStringLiteral\\(\"ls\"))") - "filePath(\"etc\", QStringLiteral(\"passwd\"))") - (("\"/bin/ls\"") "\"/etc/passwd\"")))) - (add-before 'check 'check-setup - (lambda _ - (setenv "HOME" (getcwd))))))) + (list + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'patch + (lambda _ + (substitute* "src/kpackage/package.cpp" + (("externalPaths.false.") + "externalPaths(true)")) + ;; Make QDirIterator follow symlinks + (substitute* '("src/kpackage/packageloader.cpp") + (("^\\s*(const QDirIterator::IteratorFlags flags = QDirIterator::Subdirectories)(;)" + _ a b) + (string-append a " | QDirIterator::FollowSymlinks" b)) + (("^\\s*(QDirIterator it\\(.*, QDirIterator::Subdirectories)(\\);)" + _ a b) + (string-append a " | QDirIterator::FollowSymlinks" b))))) + (add-after 'unpack 'patch-tests + (lambda _ + ;; /bin/ls doesn't exist in the build-container use /etc/passwd + (substitute* "autotests/packagestructuretest.cpp" + (("(addDirectoryDefinition\\(\")bin(\".*\")bin(\".*\")bin\"" + _ a b c) + (string-append a "etc" b "etc" c "etc\"")) + (("filePath\\(\"bin\", QStringLiteral\\(\"ls\"))") + "filePath(\"etc\", QStringLiteral(\"passwd\"))") + (("\"/bin/ls\"") + "\"/etc/passwd\"")))) + (add-before 'check 'check-setup + (lambda _ + (setenv "HOME" (getcwd))))))) (home-page "https://community.kde.org/Frameworks") (synopsis "Installation and loading of additional content as packages") (description "The Package framework lets the user install and load packages |