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

gnu: shotcut: Adjust environment variables in 'wrap-program.

Browse source 
* gnu/packages/video.scm (shotcut)[arguments]<#:phases>: In the 'wrap-program
phase, wrap LADSPA_PATH, don't wrap MLT_PREFIX, remove trailing slash from
FREI0R_PATH, remove ffmpeg and add mlt to PATH.

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

15
gnu/packages/video.scm
View file

@ -4846,18 +4846,19 @@ (define-public shotcut
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(frei0r (assoc-ref inputs "frei0r-plugins")) (frei0r (assoc-ref inputs "frei0r-plugins"))
(ffmpeg (assoc-ref inputs "ffmpeg"))
(jack (assoc-ref inputs "jack")) (jack (assoc-ref inputs "jack"))
(ladspa (assoc-ref inputs "ladspa"))
(mlt (assoc-ref inputs "mlt"))
(sdl2 (assoc-ref inputs "sdl2"))) (sdl2 (assoc-ref inputs "sdl2")))
(wrap-program (string-append out "/bin/shotcut") (wrap-program (string-append out "/bin/shotcut")
`("PATH" ":" prefix `("FREI0R_PATH" ":" =
,(list (string-append ffmpeg "/bin"))) (,(string-append frei0r "/lib/frei0r-1")))
`("LADSPA_PATH" ":" =
(,(string-append ladspa "/lib/ladspa")))
`("LD_LIBRARY_PATH" ":" prefix `("LD_LIBRARY_PATH" ":" prefix
,(list (string-append jack "/lib" ":" sdl2 "/lib"))) ,(list (string-append jack "/lib" ":" sdl2 "/lib")))
`("FREI0R_PATH" ":" = `("PATH" ":" prefix
(,(string-append frei0r "/lib/frei0r-1/"))) ,(list (string-append mlt "/bin"))))))))))
`("MLT_PREFIX" ":" =
(,(assoc-ref inputs "mlt"))))))))))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)
("python-wrapper" ,python-wrapper) ("python-wrapper" ,python-wrapper)