branch master updated: gnu: pipe-viewer: Correct references to yt-dlp program.

[guix-commits]

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

raghavgururajan pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 96a6084  gnu: pipe-viewer: Correct references to yt-dlp program.
96a6084 is described below

commit 96a6084cd8427bd485cea7e3fd0285338faa84ee
Author: Raghav Gururajan <rg@raghavgururajan.name>
AuthorDate: Sat Nov 27 05:28:28 2021 -0500

    gnu: pipe-viewer: Correct references to yt-dlp program.
    
    * gnu/packages/video.scm (pipe-viewer)[inputs]: Add yt-dlp.
    [phases](patch-source): Modify.
---
 gnu/packages/video.scm | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index 0197fff..8121a72 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -1106,7 +1106,10 @@ H.264 (MPEG-4 AVC) video streams.")
              (substitute* (find-files "lib" "\\.pm$")
                (("\"youtube-dl\"")
                 (format #f "\"~a/bin/youtube-dl\""
-                        (assoc-ref inputs "youtube-dl"))))
+                        (assoc-ref inputs "youtube-dl")))
+               (("\"yt-dlp\"")
+                (format #f "\"~a/bin/yt-dlp\""
+                        (assoc-ref inputs "yt-dlp"))))
              (substitute* (find-files "bin" ".*-viewer$")
                (("'ffmpeg'")
                 (format #f "'~a/bin/ffmpeg'"
@@ -1119,7 +1122,10 @@ H.264 (MPEG-4 AVC) video streams.")
                         (assoc-ref inputs "xdg-utils")))
                (("'youtube-dl'")
                 (format #f "'~a/bin/youtube-dl'"
-                        (assoc-ref inputs "youtube-dl"))))))
+                        (assoc-ref inputs "youtube-dl")))
+               (("'yt-dlp'")
+                (format #f "'~a/bin/yt-dlp'"
+                        (assoc-ref inputs "yt-dlp"))))))
          (add-after 'install 'install-xdg
            (lambda args
              (apply (assoc-ref copy:%standard-phases 'install)
@@ -1172,7 +1178,8 @@ H.264 (MPEG-4 AVC) video streams.")
        ("perl-uri-escape" ,perl-uri-escape)
        ("wget" ,wget)
        ("xdg-utils" ,xdg-utils)
-       ("youtube-dl" ,youtube-dl)))
+       ("youtube-dl" ,youtube-dl)
+       ("yt-dlp" ,yt-dlp)))
     (propagated-inputs
      `(("dconf" ,dconf)))
     (home-page "https://github.com/trizen/pipe-viewer";)