gnu: kinit: Use gexp.

* gnu/packages/kde-frameworks.scm (kinit): Use gexp.

Signed-off-by: Marius Bakke <marius@gnu.org>
This commit is contained in:
Petr Hodina 2022-09-27 20:11:39 +02:00 committed by Marius Bakke
parent 430df96a9c
commit 6d5d7902c2
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA

View file

@ -2585,15 +2585,17 @@ in applications using the KDE Frameworks.")
(patches (search-patches "kinit-kdeinit-extra_libs.patch")))) (patches (search-patches "kinit-kdeinit-extra_libs.patch"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
`(#:phases (list
(modify-phases %standard-phases #:phases
(add-after 'unpack 'patch-paths #~(modify-phases %standard-phases
(lambda* (#:key inputs outputs #:allow-other-keys) (add-after 'unpack 'patch-paths
;; Set patched-in values: (lambda* (#:key inputs outputs #:allow-other-keys)
(substitute* "src/kdeinit/kinit.cpp" ;; Set patched-in values:
(("GUIX_PKGS_KF5_KIO") (assoc-ref inputs "kio")) (substitute* "src/kdeinit/kinit.cpp"
(("GUIX_PKGS_KF5_PARTS") (assoc-ref inputs "kparts")) (("GUIX_PKGS_KF5_KIO") #$(this-package-input "kio"))
(("GUIX_PKGS_KF5_PLASMA") (assoc-ref inputs "plasma-framework")))))))) (("GUIX_PKGS_KF5_PARTS") #$(this-package-input "kparts"))
(("GUIX_PKGS_KF5_PLASMA")
#$(this-package-input "plasma-framework"))))))))
(native-search-paths (native-search-paths
(list (search-path-specification (list (search-path-specification
(variable "KDEINIT5_LIBRARY_PATH") (variable "KDEINIT5_LIBRARY_PATH")