From 45cad97d9ee15a4b43e83d735185ff633a95cc09 Mon Sep 17 00:00:00 2001
From: Oleg Pykhalov <go.wigust@gmail.com>
Date: Sat, 10 Oct 2020 22:50:26 +0300
Subject: 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(-)

(limited to 'gnu')

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index b39bd7cada..93508910aa 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)))
-- 
cgit v1.2.3