05/08: gnu: mpv: Set absolute path to 'youtube-dl'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 3df69aaf630efa5b5f7d56bb10239646792dda1d
Author: Timo Eisenmann <address@hidden>
Date:   Thu Mar 28 21:00:54 2019 +0100

    gnu: mpv: Set absolute path to 'youtube-dl'.
    
    * gnu/packages/video.scm (mpv)[arguments]: Add phase 'patch-paths' to
    substitute in the absolute path to 'youtube-dl'.
    
    Signed-off-by: Ludovic Courtès <address@hidden>
---
 gnu/packages/video.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index 3a043fb..8aedc1c 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -1326,6 +1326,14 @@ SVCD, DVD, 3ivx, DivX 3/4/5, WMV and H.264 movies.")
     (arguments
      '(#:phases
        (modify-phases %standard-phases
+         (add-after
+          'unpack 'patch-paths
+          (lambda* (#:key inputs #:allow-other-keys)
+            (let ((ytdl (assoc-ref inputs "youtube-dl")))
+              (substitute* "player/lua/ytdl_hook.lua"
+                (("\"youtube-dl\",")
+                 (string-append "\"" ytdl "/bin/youtube-dl\",")))
+              #t)))
          (add-before
           'configure 'setup-waf
           (lambda* (#:key inputs #:allow-other-keys)