tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-24 19:21:24 +02:00
Code Activity

gnu: shotcut: Use G-Expressions.

Browse Source 
* gnu/packages/video.scm (shotcut)[arguments]: Use G-Expressions.

Change-Id: I3323b5b5e43c7fd838c49d9de89cfd7628b8b01a
This commit is contained in:
Vinicius Monego
2025-01-26 08:35:34 -03:00
parent 945302e1c8
commit a33602d1e3
1 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
gnu/packages/video.scm
View File

@@ -6084,29 +6084,29 @@ transitions, and effects and then export your film to many common formats.")
(base32 "1cxwa1gzjb5y0640wmdssdjny5wr4r70a6nih65zsqgv223ydfb2"))))
(build-system qt-build-system)
(arguments
`(#:tests? #f ;there are no tests
(list
#:tests? #f ;there are no tests
#:phases
(modify-phases %standard-phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-executable-paths
(lambda* (#:key inputs #:allow-other-keys)
(lambda _
;; 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")))
(let ((ffmpeg #$(this-package-input "ffmpeg"))
(mlt #$(this-package-input "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\""))))))
(add-after 'install 'wrap-executable
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(frei0r (assoc-ref inputs "frei0r-plugins"))
(jack (assoc-ref inputs "jack"))
(ladspa (assoc-ref inputs "ladspa"))
(mlt (assoc-ref inputs "mlt"))
(sdl2 (assoc-ref inputs "sdl2")))
(wrap-program (string-append out "/bin/shotcut")
(lambda _
(let ((frei0r #$(this-package-input "frei0r-plugins"))
(jack #$(this-package-input "jack"))
(ladspa #$(this-package-input "ladspa"))
(mlt #$(this-package-input "mlt"))
(sdl2 #$(this-package-input "sdl2")))
(wrap-program (string-append #$output "/bin/shotcut")
`("FREI0R_PATH" ":" =
(,(string-append frei0r "/lib/frei0r-1")))
`("LADSPA_PATH" ":" =