diff options
| author | Vinicius Monego <monego@posteo.net> | 2021-12-18 18:12:26 +0000 |
|---|---|---|
| committer | Leo Famulari <leo@famulari.name> | 2021-12-26 18:36:47 -0500 |
| commit | bc74c191df789ff200da6f81c3cf599eae39ca8e (patch) | |
| tree | 2c6b23949a2cecfdebeda931de94abc803805583 | |
| parent | 75983158742219290caf6a350cfb98e0d9e3fb6f (diff) | |
| download | guix-bc74c191df789ff200da6f81c3cf599eae39ca8e.tar guix-bc74c191df789ff200da6f81c3cf599eae39ca8e.tar.gz | |
gnu: shotcut: Find ffmpeg and mlt at runtime.
* 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>
| -rw-r--r-- | gnu/packages/video.scm | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm index bc79196927..fa8dadb217 100644 --- a/gnu/packages/video.scm +++ b/gnu/packages/video.scm @@ -4820,9 +4820,20 @@ transitions, and effects and then export your film to many common formats.") (base32 "1l27dqiyi3af0v155w62ib9xcmqyjj2yzs83aqhcrz5pb3i3j18r")))) (build-system qt-build-system) (arguments - `(#:tests? #f ;there are no tests + `(#:tests? #f ;there are no tests #: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 (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out"))) |