branch master updated: gnu: keepassxc: Set QT_PLUGIN_PATH.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

roptat pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 074814f  gnu: keepassxc: Set QT_PLUGIN_PATH.
074814f is described below

commit 074814fe575ebf36049a26351cc7853967ceb0ae
Author: Julien Lepiller <julien@lepiller.eu>
AuthorDate: Thu Jul 16 23:54:58 2020 +0200

    gnu: keepassxc: Set QT_PLUGIN_PATH.
    
    * gnu/packages/password-utils.scm (keepassxc): Wrap program to set
    QT_PLUGIN_PATH for svg icons to show properly.
---
 gnu/packages/password-utils.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/password-utils.scm b/gnu/packages/password-utils.scm
index 0dffffd..ee4d088 100644
--- a/gnu/packages/password-utils.scm
+++ b/gnu/packages/password-utils.scm
@@ -133,7 +133,19 @@ human.")
     (build-system cmake-build-system)
     (arguments
      '(#:configure-flags '("-DWITH_XC_ALL=YES"
-                           "-DWITH_XC_UPDATECHECK=NO")))
+                           "-DWITH_XC_UPDATECHECK=NO")
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'wrap-bin
+           (lambda* (#:key outputs inputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+               (wrap-program (string-append out "/bin/keepassxc")
+                 `("QT_PLUGIN_PATH" ":" prefix
+                   ,(map (lambda (label)
+                           (string-append (assoc-ref inputs label)
+                                          "/lib/qt5/plugins"))
+                         '("qtbase" "qtsvg")))))
+             #t)))))
     (native-inputs
      `(("asciidoctor" ,ruby-asciidoctor)
        ("qttools" ,qttools)))