ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* gnu/packages/video.scm (video-contact-sheet)[arguments]: Use the new style.
This commit is contained in:
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 @@ (define-public video-contact-sheet
#: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")