From 6d5d7902c21a683000ca665c416ce367bcb63a19 Mon Sep 17 00:00:00 2001 From: Petr Hodina Date: Tue, 27 Sep 2022 20:11:39 +0200 Subject: gnu: kinit: Use gexp. * gnu/packages/kde-frameworks.scm (kinit): Use gexp. Signed-off-by: Marius Bakke --- gnu/packages/kde-frameworks.scm | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) (limited to 'gnu/packages/kde-frameworks.scm') diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm index b9610f3de1..ee4ba95263 100644 --- a/gnu/packages/kde-frameworks.scm +++ b/gnu/packages/kde-frameworks.scm @@ -2585,15 +2585,17 @@ (define-public kinit (patches (search-patches "kinit-kdeinit-extra_libs.patch")))) (build-system cmake-build-system) (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch-paths - (lambda* (#:key inputs outputs #:allow-other-keys) - ;; Set patched-in values: - (substitute* "src/kdeinit/kinit.cpp" - (("GUIX_PKGS_KF5_KIO") (assoc-ref inputs "kio")) - (("GUIX_PKGS_KF5_PARTS") (assoc-ref inputs "kparts")) - (("GUIX_PKGS_KF5_PLASMA") (assoc-ref inputs "plasma-framework")))))))) + (list + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'patch-paths + (lambda* (#:key inputs outputs #:allow-other-keys) + ;; Set patched-in values: + (substitute* "src/kdeinit/kinit.cpp" + (("GUIX_PKGS_KF5_KIO") #$(this-package-input "kio")) + (("GUIX_PKGS_KF5_PARTS") #$(this-package-input "kparts")) + (("GUIX_PKGS_KF5_PLASMA") + #$(this-package-input "plasma-framework")))))))) (native-search-paths (list (search-path-specification (variable "KDEINIT5_LIBRARY_PATH") -- cgit v1.2.3