branch master updated: gnu: obs: Fix missing icons.

[guix-commits]

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

wigust pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 45cad97  gnu: obs: Fix missing icons.
45cad97 is described below

commit 45cad97d9ee15a4b43e83d735185ff633a95cc09
Author: Oleg Pykhalov <go.wigust@gmail.com>
AuthorDate: Sat Oct 10 22:50:26 2020 +0300

    gnu: obs: Fix missing icons.
    
    Fixes <https://bugs.gnu.org/43556>.
    Reported-by: bdju <bdju@tilde.team>.
    
    * gnu/packages/video.scm
    (obs)[arguments]<phases>: Add 'wrap-executable' which fixes missing icons.
---
 gnu/packages/video.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index b39bd7c..9350891 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -3011,7 +3011,16 @@ be used for realtime video capture via Linux-specific 
APIs.")
     (arguments
      `(#:configure-flags
        (list (string-append "-DOBS_VERSION_OVERRIDE=" ,version)
-             "-DENABLE_UNIT_TESTS=TRUE")))
+             "-DENABLE_UNIT_TESTS=TRUE")
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'wrap-executable
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out"))
+                   (plugin-path (getenv "QT_PLUGIN_PATH")))
+               (wrap-program (string-append out "/bin/obs")
+                 `("QT_PLUGIN_PATH" ":" prefix (,plugin-path))))
+             #t)))))
     (native-inputs
      `(("cmocka" ,cmocka)
        ("pkg-config" ,pkg-config)))