me/guix
Archived
1
0
Fork 0
Code Activity

gnu: avidemux: Factorise ffmpeg version.

Browse source 
* gnu/packages/video.scm (avidemux)[arguments]: Move oft-repeated
hard-coded ffmpeg version number to a single let-bound variable.
This commit is contained in:
Tobias Geerinckx-Rice 2019-03-11 01:28:21 +01:00
parent 7d3ac6c08e
commit 642de36b9e
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 68 additions and 67 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
gnu/packages/video.scm
View file

@ -1857,23 +1857,24 @@ for use with HTML5 video.")
#:phases
;; Make sure files inside the included ffmpeg tarball are
;; patch-shebanged.
(let ((ffmpeg "ffmpeg-3.3.7"))
(modify-phases %standard-phases
(add-before 'patch-source-shebangs 'unpack-ffmpeg
(lambda _
(with-directory-excursion "avidemux_core/ffmpeg_package"
(invoke "tar" "xf" "ffmpeg-3.3.7.tar.bz2")
(delete-file "ffmpeg-3.3.7.tar.bz2"))
(invoke "tar" "xf" (string-append ffmpeg ".tar.bz2"))
(delete-file (string-append ffmpeg ".tar.bz2")))
#t))
(add-after 'patch-source-shebangs 'repack-ffmpeg
(lambda _
(with-directory-excursion "avidemux_core/ffmpeg_package"
(substitute* "ffmpeg-3.3.7/configure"
(substitute* (string-append ffmpeg "/configure")
(("#! /bin/sh") (string-append "#!" (which "sh"))))
(invoke "tar" "cjf" "ffmpeg-3.3.7.tar.bz2" "ffmpeg-3.3.7"
(invoke "tar" "cjf" (string-append ffmpeg ".tar.bz2") ffmpeg
;; avoid non-determinism in the archive
"--sort=name" "--mtime=@0"
"--owner=root:0" "--group=root:0")
(delete-file-recursively "ffmpeg-3.3.7"))
(delete-file-recursively ffmpeg))
#t))
(replace 'configure
(lambda _
@ -1923,7 +1924,7 @@ for use with HTML5 video.")
(delete-file-recursively
(string-append out "/share/ADM6_addons"))
#t)))
(delete 'install))))
(delete 'install)))))
(home-page "http://fixounet.free.fr/avidemux/")
(synopsis "Video editor")
(description "Avidemux is a video editor designed for simple cutting,