46/143: gnu: kiconthemes: Use gexp.

[guix-commits]

mbakke pushed a commit to branch master
in repository guix.

commit 5922ceabde5098912a718e835f4549659bbc12b4
Author: Petr Hodina <phodina@protonmail.com>
AuthorDate: Tue Sep 27 02:10:46 2022 +0200

    gnu: kiconthemes: Use gexp.
    
    * gnu/packages/kde-frameworks.scm (kiconthemes): Use gexp.
    
    Signed-off-by: Marius Bakke <marius@gnu.org>
---
 gnu/packages/kde-frameworks.scm | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm
index dece10f4db..f1aae61a3c 100644
--- a/gnu/packages/kde-frameworks.scm
+++ b/gnu/packages/kde-frameworks.scm
@@ -2563,16 +2563,17 @@ window does not need focus for them to be activated.")
            qtdeclarative-5
            qtsvg-5))
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (add-before 'check 'check-setup
-           (lambda* (#:key inputs #:allow-other-keys)
-             (setenv "XDG_DATA_DIRS"
-                     (string-append (assoc-ref inputs "shared-mime-info")
-                                    "/share"))
-             (setenv "HOME" (getcwd))
-             ;; make Qt render "offscreen", required for tests
-             (setenv "QT_QPA_PLATFORM" "offscreen"))))))
+     (list #:phases
+           #~(modify-phases %standard-phases
+               (add-before 'check 'check-setup
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   (setenv "XDG_DATA_DIRS"
+                           (string-append #$(this-package-native-input
+                                             "shared-mime-info")
+                                          "/share"))
+                   (setenv "HOME" (getcwd))
+                   ;; make Qt render "offscreen", required for tests
+                   (setenv "QT_QPA_PLATFORM" "offscreen"))))))
     (home-page "https://community.kde.org/Frameworks";)
     (synopsis "Icon GUI utilities")
     (description "This library contains classes to improve the handling of 
icons