ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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