me
/
guix
Archived
1
0
Fork 0
Code

gnu: kpackage: Use G-expressions. 

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

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

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

@ -1928,17 +1928,21 @@ covers feedback and persistent events.")
ki18n ki18n
qtbase-5)) qtbase-5))
(arguments (arguments
`(#:phases (list
(modify-phases %standard-phases #:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch (add-after 'unpack 'patch
(lambda _ (lambda _
(substitute* "src/kpackage/package.cpp" (substitute* "src/kpackage/package.cpp"
(("externalPaths.false.") "externalPaths(true)")) (("externalPaths.false.")
"externalPaths(true)"))
;; Make QDirIterator follow symlinks ;; Make QDirIterator follow symlinks
(substitute* '("src/kpackage/packageloader.cpp") (substitute* '("src/kpackage/packageloader.cpp")
(("^\\s*(const QDirIterator::IteratorFlags flags = QDirIterator::Subdirectories)(;)" _ a b) (("^\\s*(const QDirIterator::IteratorFlags flags = QDirIterator::Subdirectories)(;)"
_ a b)
(string-append a " | QDirIterator::FollowSymlinks" b)) (string-append a " | QDirIterator::FollowSymlinks" b))
(("^\\s*(QDirIterator it\\(.*, QDirIterator::Subdirectories)(\\);)" _ a b) (("^\\s*(QDirIterator it\\(.*, QDirIterator::Subdirectories)(\\);)"
_ a b)
(string-append a " | QDirIterator::FollowSymlinks" b))))) (string-append a " | QDirIterator::FollowSymlinks" b)))))
(add-after 'unpack 'patch-tests (add-after 'unpack 'patch-tests
(lambda _ (lambda _
@ -1949,7 +1953,8 @@ covers feedback and persistent events.")
(string-append a "etc" b "etc" c "etc\"")) (string-append a "etc" b "etc" c "etc\""))
(("filePath\\(\"bin\", QStringLiteral\\(\"ls\"))") (("filePath\\(\"bin\", QStringLiteral\\(\"ls\"))")
"filePath(\"etc\", QStringLiteral(\"passwd\"))") "filePath(\"etc\", QStringLiteral(\"passwd\"))")
(("\"/bin/ls\"") "\"/etc/passwd\"")))) (("\"/bin/ls\"")
"\"/etc/passwd\""))))
(add-before 'check 'check-setup (add-before 'check 'check-setup
(lambda _ (lambda _
(setenv "HOME" (getcwd))))))) (setenv "HOME" (getcwd)))))))