futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
* gnu/packages/video.scm (pipe-viewer)[inputs]: Add yt-dlp.
[phases](patch-source): Modify.
This commit is contained in:
Raghav Gururajan 2021-11-27 05:28:28 -05:00
parent 6dc682e5b9
commit 96a6084cd8
No known key found for this signature in database
GPG Key ID: 5F5816647F8BE551
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gnu/packages/video.scm
View File

@ -1106,7 +1106,10 @@ H.264 (MPEG-4 AVC) video streams.")
(substitute* (find-files "lib" "\\.pm$") (substitute* (find-files "lib" "\\.pm$")
(("\"youtube-dl\"") (("\"youtube-dl\"")
(format #f "\"~a/bin/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$") (substitute* (find-files "bin" ".*-viewer$")
(("'ffmpeg'") (("'ffmpeg'")
(format #f "'~a/bin/ffmpeg'" (format #f "'~a/bin/ffmpeg'"
@ -1119,7 +1122,10 @@ H.264 (MPEG-4 AVC) video streams.")
(assoc-ref inputs "xdg-utils"))) (assoc-ref inputs "xdg-utils")))
(("'youtube-dl'") (("'youtube-dl'")
(format #f "'~a/bin/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 (add-after 'install 'install-xdg
(lambda args (lambda args
(apply (assoc-ref copy:%standard-phases 'install) (apply (assoc-ref copy:%standard-phases 'install)
@ -1172,7 +1178,8 @@ H.264 (MPEG-4 AVC) video streams.")
("perl-uri-escape" ,perl-uri-escape) ("perl-uri-escape" ,perl-uri-escape)
("wget" ,wget) ("wget" ,wget)
("xdg-utils" ,xdg-utils) ("xdg-utils" ,xdg-utils)
("youtube-dl" ,youtube-dl))) ("youtube-dl" ,youtube-dl)
("yt-dlp" ,yt-dlp)))
(propagated-inputs (propagated-inputs
`(("dconf" ,dconf))) `(("dconf" ,dconf)))
(home-page "https://github.com/trizen/pipe-viewer") (home-page "https://github.com/trizen/pipe-viewer")