me
/
guix
Archived
1
0
Fork 0
Code

gnu: video-contact-sheet: Use the new style. 

* gnu/packages/video.scm (video-contact-sheet)[arguments]: Use the new style.
master
Leo Famulari 2021-12-19 17:31:49 -05:00
parent 9b38d9b3b3
commit 0f4c68ecc8
No known key found for this signature in database
GPG Key ID: 2646FA30BACA7F08
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
gnu/packages/video.scm
View File

@ -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")