diff options
Diffstat (limited to 'gnu/packages/video.scm')
| -rw-r--r-- | gnu/packages/video.scm | 18 |
1 files 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") |