03/03: gnu: mkvtoolnix:gui: Don't require :out to be installed.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 07272bd8e0809de2dcfc068244c5218506418a10
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Mon Aug 26 19:22:00 2019 +0200

    gnu: mkvtoolnix:gui: Don't require :out to be installed.
    
    * gnu/packages/video.scm (mkvtoolnix)[arguments]: Add a
    ‘patch-relative-file-names’ phase to call ‘mkvmerge’ from :out.
---
 gnu/packages/video.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index 055b9a0..43581e7 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -418,6 +418,13 @@ H.264 (MPEG-4 AVC) video streams.")
              "--enable-precompiled-headers=no")
         #:phases
        (modify-phases %standard-phases
+         (add-after 'unpack 'patch-relative-file-names
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+             (substitute* "src/mkvtoolnix-gui/util/settings.cpp"
+               (("mkvmerge" match)
+                (string-append out "/bin/" match)))
+             #t)))
          (add-before 'configure 'add-googletest
            (lambda* (#:key inputs #:allow-other-keys)
              (symlink