mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-04 09:16:31 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: mlt: Wrap FREI0R_PATH and LADSPA_PATH.

Browse source 
* gnu/packages/video.scm (mlt)[arguments]: Use gexps. Add 'wrap-executable
phase.
[inputs]: Add bash-minimal.
This commit is contained in:
Vinicius Monego 2022-02-02 11:31:36 -03:00
parent 1af78ab5e8
commit 00a05e481d
No known key found for this signature in database
GPG key ID: 637B0B138065B68A
1 changed files with 25 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
gnu/packages/video.scm
View file

@ -3221,18 +3221,34 @@ (define-public mlt
(base32 "17d4gs46ca3n0qg6z69hl6mmllnqj2id8ccrv8fyz8c5zm55ghqm")))) (base32 "17d4gs46ca3n0qg6z69hl6mmllnqj2id8ccrv8fyz8c5zm55ghqm"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
`(#:tests? #f ;requires "Kwalify" (list
#:phases #:tests? #f ;requires "Kwalify"
(modify-phases %standard-phases #:phases
(add-before 'configure 'override-LDFLAGS #~(modify-phases %standard-phases
(lambda* (#:key outputs #:allow-other-keys) (add-before 'configure 'override-LDFLAGS
(setenv "LDFLAGS" (lambda _
(string-append (setenv "LDFLAGS"
"-Wl,-rpath=" (string-append "-Wl,-rpath=" #$output "/lib"))))
(assoc-ref outputs "out") "/lib"))))))) (add-after 'install 'wrap-executable
(lambda _
(let* ((frei0r #$(this-package-input "frei0r-plugins"))
(ladspa #$(this-package-input "ladspa"))
;; In MLT 7, 'melt' symlinks to 'melt-7'. Try to keep
;; compatibility with MLT 6 where it's only 'melt'.
(major #$(version-major version))
(exec (if (file-exists?
(string-append #$output "/bin/melt-" major))
(string-append "melt-" major)
"melt")))
(wrap-program (string-append #$output "/bin/" exec)
`("FREI0R_PATH" ":" =
(,(string-append frei0r "/lib/frei0r-1")))
`("LADSPA_PATH" ":" =
(,(string-append ladspa "/lib/ladspa"))))))))))
(inputs (inputs
(list alsa-lib (list alsa-lib
`(,alsa-plugins "pulseaudio") `(,alsa-plugins "pulseaudio")
bash-minimal
ffmpeg ffmpeg
fftw fftw
frei0r-plugins frei0r-plugins