ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-18 12:47:33 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: shotcut: Find ffmpeg and mlt at runtime.

Browse source 
* gnu/packages/video.scm (shotcut)[arguments]<:#phases>: Add phase
'patch-executable-paths to use full store paths for ffmpeg and mlt.

Signed-off-by: Leo Famulari <leo@famulari.name>
This commit is contained in:
Vinicius Monego 2021-12-18 18:12:26 +00:00 committed by Leo Famulari
parent 7598315874
commit bc74c191df
No known key found for this signature in database
GPG key ID: 2646FA30BACA7F08
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gnu/packages/video.scm
View file

@ -4823,6 +4823,17 @@ (define-public shotcut
`(#:tests? #f ;there are no tests `(#:tests? #f ;there are no tests
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'patch-executable-paths
(lambda* (#:key inputs #:allow-other-keys)
;; Shotcut expects ffmpeg and melt executables in the shotcut
;; directory. Use full store paths.
(let* ((ffmpeg (assoc-ref inputs "ffmpeg"))
(mlt (assoc-ref inputs "mlt")))
(substitute* "src/jobs/ffmpegjob.cpp"
(("\"ffmpeg\"") (string-append "\"" ffmpeg "/bin/ffmpeg\"")))
(substitute* "src/jobs/meltjob.cpp"
(("\"melt\"") (string-append "\"" mlt "/bin/melt\""))
(("\"melt-7\"") (string-append "\"" mlt "/bin/melt-7\""))))))
(replace 'configure (replace 'configure
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))) (let* ((out (assoc-ref outputs "out")))