gnu: avidemux: Use 'modify-phases'.

* gnu/packages/video.scm (avidemux)[arguments]: Use 'modify-phases'.

gnu/packages/video.scm

@@ -1098,14 +1098,13 @@ for use with HTML5 video.")
        #:phases
        ;; Make sure files inside the included ffmpeg tarball are
        ;; patch-shebanged.
-       (alist-cons-before
-        'patch-source-shebangs 'unpack-ffmpeg
+       (modify-phases %standard-phases
+       (add-before 'patch-source-shebangs 'unpack-ffmpeg
          (lambda _
            (with-directory-excursion "avidemux_core/ffmpeg_package"
              (system* "tar" "xf" "ffmpeg-2.7.6.tar.bz2")
-            (delete-file "ffmpeg-2.7.6.tar.bz2")))
-        (alist-cons-after
-         'patch-source-shebangs 'repack-ffmpeg
+             (delete-file "ffmpeg-2.7.6.tar.bz2"))))
+       (add-after 'patch-source-shebangs 'repack-ffmpeg
          (lambda _
            (with-directory-excursion "avidemux_core/ffmpeg_package"
              (substitute* "ffmpeg-2.7.6/configure"
@@ -1114,13 +1113,13 @@ for use with HTML5 video.")
                       ;; avoid non-determinism in the archive
                       "--sort=name" "--mtime=@0"
                       "--owner=root:0" "--group=root:0")
-             (delete-file-recursively "ffmpeg-2.7.6")))
-         (alist-replace 'configure
+             (delete-file-recursively "ffmpeg-2.7.6"))))
+       (replace 'configure
          (lambda _
            ;; Copy-paste settings from the cmake build system.
            (setenv "CMAKE_LIBRARY_PATH" (getenv "LIBRARY_PATH"))
-            (setenv "CMAKE_INCLUDE_PATH" (getenv "C_INCLUDE_PATH")))
-          (alist-replace 'build
+           (setenv "CMAKE_INCLUDE_PATH" (getenv "C_INCLUDE_PATH"))))
+       (replace 'build
          (lambda* (#:key inputs outputs #:allow-other-keys)
            (let*
              ((out (assoc-ref outputs "out"))
@@ -1132,7 +1131,8 @@ for use with HTML5 video.")
                   (let ((builddir (string-append "build_" component)))
                     (mkdir builddir)
                     (with-directory-excursion builddir
-                        (zero? (and
+                      (zero?
+                        (and
                           (apply system* "cmake"
                                  "-DCMAKE_INSTALL_RPATH_USE_LINK_PATH=TRUE"
                                  (string-append "-DCMAKE_INSTALL_PREFIX=" out)
@@ -1162,9 +1162,8 @@ for use with HTML5 video.")
                                   '("-DPLUGIN_UI=SETTINGS")))
              ;; Remove .exe and .dll file.
              (delete-file-recursively
-                  (string-append out "/share/ADM6_addons"))))
-            (alist-delete 'install
-               %standard-phases)))))))
+               (string-append out "/share/ADM6_addons")))))
+       (delete 'install))))
     (home-page "http://fixounet.free.fr/avidemux/")
     (synopsis "Video editor")
     (description "Avidemux is a video editor designed for simple cutting,