From 0f4c68ecc83189f8f2e557445e4a2da384139d17 Mon Sep 17 00:00:00 2001 From: Leo Famulari Date: Sun, 19 Dec 2021 17:31:49 -0500 Subject: gnu: video-contact-sheet: Use the new style. * gnu/packages/video.scm (video-contact-sheet)[arguments]: Use the new style. --- gnu/packages/video.scm | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm index 39ff8a1ffc..7c4410fe12 100644 --- a/gnu/packages/video.scm +++ b/gnu/packages/video.scm @@ -5478,20 +5478,18 @@ elementary stream are provided.") #:make-flags #~(list (string-append "prefix=" #$output)) #:phases - '(modify-phases %standard-phases + #~(modify-phases %standard-phases (delete 'configure) (delete 'build) (delete 'check) (add-after 'install 'wrap-program - (lambda* (#:key inputs outputs #:allow-other-keys) - (let ((vcs (string-append (assoc-ref outputs "out") "/bin/vcs")) - (ffmpeg (assoc-ref inputs "ffmpeg")) - (imagemagick (assoc-ref inputs "imagemagick"))) - (wrap-program vcs - `("PATH" ":" prefix - ,(map (lambda (dir) - (string-append dir "/bin")) - (list ffmpeg imagemagick)))))))))) + (lambda _ + (wrap-program (string-append #$output "/bin/vcs") + `("PATH" ":" prefix + ,(map (lambda (dir) + (string-append dir "/bin")) + (list #$(this-package-input "ffmpeg") + #$(this-package-input "imagemagick")))))))))) (inputs (list bash-minimal ffmpeg imagemagick)) (synopsis "Create contact sheets (preview images) from videos") -- cgit v1.2.3