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

gnu: mpv: Use G-expressions.

Browse Source 
* gnu/packages/video.scm (mpv)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2022-10-16 02:00:01 +02:00
parent 51aac125f0
commit 9eea2db6ae
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 27 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
gnu/packages/video.scm
View File

@ -2169,31 +2169,33 @@ SVCD, DVD, 3ivx, DivX 3/4/5, WMV and H.264 movies.")
(base32 "12qxwm1ww5vhjddl8yvj1xa0n1fi9z3lmzwhaiday2v59ca0qgsk")))) (base32 "12qxwm1ww5vhjddl8yvj1xa0n1fi9z3lmzwhaiday2v59ca0qgsk"))))
(build-system waf-build-system) (build-system waf-build-system)
(arguments (arguments
'(#:phases (list
(modify-phases %standard-phases #:phases
(add-after 'unpack 'patch-paths #~(modify-phases %standard-phases
(lambda* (#:key inputs #:allow-other-keys) (add-after 'unpack 'patch-file-names
(substitute* "player/lua/ytdl_hook.lua" (lambda* (#:key inputs #:allow-other-keys)
(("\"yt-dlp\",") (substitute* "player/lua/ytdl_hook.lua"
(string-append (("\"yt-dlp\",")
"\"" (search-input-file inputs "bin/yt-dlp") "\","))))) (string-append
(add-before 'configure 'build-reproducibly "\"" (search-input-file inputs "bin/yt-dlp") "\",")))))
(lambda _ (add-before 'configure 'build-reproducibly
;; Somewhere in the build system library dependencies are enumerated (lambda _
;; and passed as linker flags, but the order in which they are added ;; Somewhere in the build system library dependencies are enumerated
;; varies. See <https://github.com/mpv-player/mpv/issues/7855>. ;; and passed as linker flags, but the order in which they are added
;; Set PYTHONHASHSEED as a workaround for deterministic results. ;; varies. See <https://github.com/mpv-player/mpv/issues/7855>.
(setenv "PYTHONHASHSEED" "1"))) ;; Set PYTHONHASHSEED as a workaround for deterministic results.
(add-before 'configure 'set-up-waf (setenv "PYTHONHASHSEED" "1")))
(lambda* (#:key inputs #:allow-other-keys) (add-before 'configure 'set-up-waf
(copy-file (search-input-file inputs "/bin/waf") "waf") (lambda* (#:key inputs #:allow-other-keys)
(setenv "CC" "gcc")))) (copy-file (search-input-file inputs "bin/waf") "waf")
#:configure-flags (list "--enable-libmpv-shared" (setenv "CC" "gcc"))))
"--enable-cdda" #:configure-flags
"--enable-dvdnav" #~(list "--enable-libmpv-shared"
"--disable-build-date") "--enable-cdda"
;; No check function defined. "--enable-dvdnav"
#:tests? #f)) "--disable-build-date")
;; No check function defined.
#:tests? #f))
(native-inputs (native-inputs
(list perl ; for zsh completion file (list perl ; for zsh completion file
pkg-config python-docutils)) pkg-config python-docutils))