guix/guix
3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00
Code Issues Releases Wiki Activity

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 @@ from sites like Twitch.tv and pipes them into a video player of choice.")
(base32 "17d4gs46ca3n0qg6z69hl6mmllnqj2id8ccrv8fyz8c5zm55ghqm"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ;requires "Kwalify"
#:phases
(modify-phases %standard-phases
(add-before 'configure 'override-LDFLAGS
(lambda* (#:key outputs #:allow-other-keys)
(setenv "LDFLAGS"
(string-append
"-Wl,-rpath="
(assoc-ref outputs "out") "/lib")))))))
(list
#:tests? #f ;requires "Kwalify"
#:phases
#~(modify-phases %standard-phases
(add-before 'configure 'override-LDFLAGS
(lambda _
(setenv "LDFLAGS"
(string-append "-Wl,-rpath=" #$output "/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
(list alsa-lib
`(,alsa-plugins "pulseaudio")
bash-minimal
ffmpeg
fftw
frei0r-plugins