me
/
guix
Archived
1
0
Fork 0
Code

gnu: kdenlive: Gexp arguments. 

* gnu/packages/kde.scm (kdenlive)[arguments]: Rewrite as gexps.
master
Vinicius Monego 2022-03-04 18:35:09 -03:00
parent 4e1f20b43e
commit b5f654b238
No known key found for this signature in database
GPG Key ID: 637B0B138065B68A
1 changed files with 25 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
gnu/packages/kde.scm
View File

@ -36,6 +36,7 @@
#:use-module (guix build-system qt) #:use-module (guix build-system qt)
#:use-module (guix deprecation) #:use-module (guix deprecation)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix gexp)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages) #:use-module (guix packages)
@ -237,18 +238,18 @@ browser for easy news reading.")
;; XXX: there is a single test that spawns other tests and ;; XXX: there is a single test that spawns other tests and
;; 1/3 tests failed and 1/327 assertions failed. It seems ;; 1/3 tests failed and 1/327 assertions failed. It seems
;; that individual tests can't be skipped. ;; that individual tests can't be skipped.
`(#:configure-flags (list "-DBUILD_TESTING=off") (list
#:configure-flags #~(list "-DBUILD_TESTING=off")
#:tests? #f #:tests? #f
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'install 'wrap-executable (add-after 'install 'wrap-executable
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda _
(let* ((out (assoc-ref outputs "out")) (let* ((ffmpeg #$(this-package-input "ffmpeg"))
(ffmpeg (assoc-ref inputs "ffmpeg")) (frei0r #$(this-package-input "frei0r-plugins"))
(frei0r (assoc-ref inputs "frei0r-plugins")) (ladspa #$(this-package-input "ladspa"))
(ladspa (assoc-ref inputs "ladspa")) (qtbase #$(this-package-input "qtbase")))
(qtbase (assoc-ref inputs "qtbase"))) (wrap-program (string-append #$output "/bin/kdenlive")
(wrap-program (string-append out "/bin/kdenlive")
`("PATH" ":" prefix `("PATH" ":" prefix
,(list (string-append ffmpeg "/bin"))) ,(list (string-append ffmpeg "/bin")))
`("FREI0R_PATH" ":" = `("FREI0R_PATH" ":" =
@ -258,7 +259,7 @@ browser for easy news reading.")
`("QT_QPA_PLATFORM_PLUGIN_PATH" ":" = `("QT_QPA_PLATFORM_PLUGIN_PATH" ":" =
(,(string-append qtbase "/lib/qt5/plugins/platforms"))) (,(string-append qtbase "/lib/qt5/plugins/platforms")))
`("MLT_PREFIX" ":" = `("MLT_PREFIX" ":" =
(,(assoc-ref inputs "mlt")))))))))) (,#$(this-package-input "mlt"))))))))))
(native-inputs (native-inputs
(list extra-cmake-modules pkg-config qttools)) (list extra-cmake-modules pkg-config qttools))
(inputs (inputs