nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: avidemux: Use 'modify-phases'. 

* gnu/packages/video.scm (avidemux)[arguments]: Use 'modify-phases'.
This commit is contained in:
Efraim Flashner 2016-06-16 15:53:32 +03:00
parent 4cafe8adfe
commit 1898900f1f
No known key found for this signature in database
GPG Key ID: F4C1D3917EACEE93
1 changed files with 46 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
gnu/packages/video.scm
View File

@ -1098,14 +1098,13 @@ for use with HTML5 video.")
#:phases #:phases
;; Make sure files inside the included ffmpeg tarball are ;; Make sure files inside the included ffmpeg tarball are
;; patch-shebanged. ;; patch-shebanged.
(alist-cons-before (modify-phases %standard-phases
'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"
(system* "tar" "xf" "ffmpeg-2.7.6.tar.bz2") (system* "tar" "xf" "ffmpeg-2.7.6.tar.bz2")
(delete-file "ffmpeg-2.7.6.tar.bz2"))) (delete-file "ffmpeg-2.7.6.tar.bz2"))))
(alist-cons-after (add-after 'patch-source-shebangs 'repack-ffmpeg
'patch-source-shebangs 'repack-ffmpeg
(lambda _ (lambda _
(with-directory-excursion "avidemux_core/ffmpeg_package" (with-directory-excursion "avidemux_core/ffmpeg_package"
(substitute* "ffmpeg-2.7.6/configure" (substitute* "ffmpeg-2.7.6/configure"
@ -1114,13 +1113,13 @@ for use with HTML5 video.")
;; 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-2.7.6"))) (delete-file-recursively "ffmpeg-2.7.6"))))
(alist-replace 'configure (replace 'configure
(lambda _ (lambda _
;; Copy-paste settings from the cmake build system. ;; Copy-paste settings from the cmake build system.
(setenv "CMAKE_LIBRARY_PATH" (getenv "LIBRARY_PATH")) (setenv "CMAKE_LIBRARY_PATH" (getenv "LIBRARY_PATH"))
(setenv "CMAKE_INCLUDE_PATH" (getenv "C_INCLUDE_PATH"))) (setenv "CMAKE_INCLUDE_PATH" (getenv "C_INCLUDE_PATH"))))
(alist-replace 'build (replace 'build
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* (let*
((out (assoc-ref outputs "out")) ((out (assoc-ref outputs "out"))
@ -1132,7 +1131,8 @@ for use with HTML5 video.")
(let ((builddir (string-append "build_" component))) (let ((builddir (string-append "build_" component)))
(mkdir builddir) (mkdir builddir)
(with-directory-excursion builddir (with-directory-excursion builddir
(zero? (and (zero?
(and
(apply system* "cmake" (apply system* "cmake"
"-DCMAKE_INSTALL_RPATH_USE_LINK_PATH=TRUE" "-DCMAKE_INSTALL_RPATH_USE_LINK_PATH=TRUE"
(string-append "-DCMAKE_INSTALL_PREFIX=" out) (string-append "-DCMAKE_INSTALL_PREFIX=" out)
@ -1162,9 +1162,8 @@ for use with HTML5 video.")
'("-DPLUGIN_UI=SETTINGS"))) '("-DPLUGIN_UI=SETTINGS")))
;; Remove .exe and .dll file. ;; Remove .exe and .dll file.
(delete-file-recursively (delete-file-recursively
(string-append out "/share/ADM6_addons")))) (string-append out "/share/ADM6_addons")))))
(alist-delete 'install (delete 'install))))
%standard-phases)))))))
(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,