01/01: gnu: krita: Ensure icons are found at runtime.

[Leo Famulari]

lfam pushed a commit to branch master
in repository guix.

commit 990e93fce16a83e1603b9ec28123ec3edc7ea787
Author: Leo Famulari <address@hidden>
Date:   Sun Dec 31 13:15:31 2017 -0500

    gnu: krita: Ensure icons are found at runtime.
    
    Fixes <https://bugs.gnu.org/29905>.
    
    * gnu/packages/kde.scm (krita)[arguments]: Set the QT_PLUGIN_PATH in a
    new 'wrap-executable' phase.
---
 gnu/packages/kde.scm | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/kde.scm b/gnu/packages/kde.scm
index 94834c3..fdfca94 100644
--- a/gnu/packages/kde.scm
+++ b/gnu/packages/kde.scm
@@ -260,7 +260,21 @@ plugins, as well as code to create plugins, or complete 
applications.")
                             (assoc-ref %build-inputs "libtiff"))
              (string-append "-DCMAKE_CXX_FLAGS=-I"
                             (assoc-ref %build-inputs "ilmbase")
-                            "/include/OpenEXR"))))
+                            "/include/OpenEXR"))
+       #:phases
+       (modify-phases %standard-phases
+         ;; Ensure that icons are found at runtime
+         (add-after 'install 'wrap-executable
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out"))
+                   (qt '("qtbase" "qtsvg")))
+               (wrap-program (string-append out "/bin/krita")
+                 `("QT_PLUGIN_PATH" ":" prefix
+                   ,(map (lambda (label)
+                           (string-append (assoc-ref inputs label)
+                                          "/lib/qt5/plugins/"))
+                         qt)))
+               #t))))))
     (native-inputs
      `(("curl" ,curl)
        ("eigen" ,eigen)