branch master updated: gnu: video-contact-sheet: Use the new style.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

lfam pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 0f4c68e  gnu: video-contact-sheet: Use the new style.
0f4c68e is described below

commit 0f4c68ecc83189f8f2e557445e4a2da384139d17
Author: Leo Famulari <leo@famulari.name>
AuthorDate: Sun Dec 19 17:31:49 2021 -0500

    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 39ff8a1..7c4410f 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")