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

gnu: yt-dlp: Build from Git.

Browse Source 
* gnu/packages/video.scm (yt-dlp)[source]: Use GIT-FETCH and
GIT-FILE-NAME.  Remove the snippet.
[arguments]: Build the man page in the 'build-generated-files phase.
[native-inputs]: Add pandoc.

Co-authored-by: Tobias Geerinckx-Rice <me@tobias.gr>
This commit is contained in:
raingloom 2022-08-13 15:53:01 +02:00 committed by Tobias Geerinckx-Rice
parent a6fb2d2760
commit c2481b1bea
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 16 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
gnu/packages/video.scm
View File

@ -143,6 +143,7 @@
#:use-module (gnu packages gnupg) #:use-module (gnu packages gnupg)
#:use-module (gnu packages gstreamer) #:use-module (gnu packages gstreamer)
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
#:use-module (gnu packages haskell-xyz)
#:use-module (gnu packages image) #:use-module (gnu packages image)
#:use-module (gnu packages imagemagick) #:use-module (gnu packages imagemagick)
#:use-module (gnu packages iso-codes) #:use-module (gnu packages iso-codes)
@ -2487,25 +2488,15 @@ YouTube.com and many more sites.")
(package/inherit youtube-dl (package/inherit youtube-dl
(name "yt-dlp") (name "yt-dlp")
(version "2022.08.08") (version "2022.08.08")
(source (origin (source
(method url-fetch) (origin
(uri (string-append "https://github.com/yt-dlp/yt-dlp/" (method git-fetch)
"releases/download/" (uri (git-reference
version "/yt-dlp.tar.gz")) (url "https://github.com/yt-dlp/yt-dlp/")
(sha256 (commit version)))
(base32 (file-name (git-file-name name version))
"0vrmdk3znncph3a4b1y83pxnzhkv1b210b0ncb5daghgsz0jwv1k")) (sha256
(snippet (base32 "07qz1zdndlpki0asw35zk5hdjcwpl3n1g54nxg4yb1iykbyv7rll"))))
#~(begin
;; Delete the pre-generated files, except for the man page
;; which requires 'pandoc' to build.
(for-each delete-file
(list "yt-dlp"
;;pandoc is needed to generate
;;"yt-dlp.1"
"completions/bash/yt-dlp"
"completions/fish/yt-dlp.fish"
"completions/zsh/_yt-dlp"))))))
(arguments (arguments
(substitute-keyword-arguments (package-arguments youtube-dl) (substitute-keyword-arguments (package-arguments youtube-dl)
((#:tests? _) #t) ((#:tests? _) #t)
@ -2519,8 +2510,11 @@ YouTube.com and many more sites.")
(format #f "~a or '~a'" match (which "ffmpeg")))))) (format #f "~a or '~a'" match (which "ffmpeg"))))))
(replace 'build-generated-files (replace 'build-generated-files
(lambda _ (lambda _
;; Avoid the yt-dlp.1 target, which requires pandoc. (invoke "make"
(invoke "make" "PYTHON=python" "yt-dlp" "completions"))) "PYTHON=python"
"yt-dlp"
"yt-dlp.1"
"completions")))
(replace 'fix-the-data-directories (replace 'fix-the-data-directories
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((prefix (assoc-ref outputs "out"))) (let ((prefix (assoc-ref outputs "out")))
@ -2541,7 +2535,7 @@ YouTube.com and many more sites.")
python-pycryptodomex python-pycryptodomex
python-websockets))) python-websockets)))
(native-inputs (modify-inputs (package-native-inputs youtube-dl) (native-inputs (modify-inputs (package-native-inputs youtube-dl)
(append python-pytest))) (append pandoc python-pytest)))
(description (description
"yt-dlp is a small command-line program to download videos from "yt-dlp is a small command-line program to download videos from
YouTube.com and many more sites. It is a fork of youtube-dl with a YouTube.com and many more sites. It is a fork of youtube-dl with a