ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-29 07:42:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: youtube-viewer: Refer to youtube-dl.

Browse source 
* gnu/packages/video.scm (youtube-viewer)[inputs]: Add youtube-dl.
[arguments]: Add ‘refer-to-inputs’ phase.
This commit is contained in:
Tobias Geerinckx-Rice 2019-06-17 03:02:34 +02:00
parent a157fb2723
commit 58637415be
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gnu/packages/video.scm
View file

@ -1627,7 +1627,10 @@ (define-public youtube-viewer
("perl-libwww" ,perl-libwww) ("perl-libwww" ,perl-libwww)
("perl-lwp-protocol-https" ,perl-lwp-protocol-https) ("perl-lwp-protocol-https" ,perl-lwp-protocol-https)
("perl-mozilla-ca" ,perl-mozilla-ca) ("perl-mozilla-ca" ,perl-mozilla-ca)
("perl-unicode-linebreak" ,perl-unicode-linebreak))) ("perl-unicode-linebreak" ,perl-unicode-linebreak)
;; Some videos play without youtube-dl, but others silently fail to.
("youtube-dl" ,youtube-dl)))
(arguments (arguments
`(#:modules ((guix build perl-build-system) `(#:modules ((guix build perl-build-system)
(guix build utils) (guix build utils)
@ -1635,6 +1638,13 @@ (define-public youtube-viewer
#:module-build-flags '("--gtk") #:module-build-flags '("--gtk")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'refer-to-inputs
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "lib/WWW/YoutubeViewer.pm"
(("'youtube-dl'")
(format #f "'~a/bin/youtube-dl'"
(assoc-ref inputs "youtube-dl"))))
#t))
(add-after 'install 'install-desktop (add-after 'install 'install-desktop
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))