me/guix
Archived
1
0
Fork 0
Code Activity

gnu: kdenlive: Gexp arguments.

Browse source 
* gnu/packages/kde.scm (kdenlive)[arguments]: Rewrite as gexps.
This commit is contained in:
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

49
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,34 +238,34 @@ 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
#:tests? #f #:configure-flags #~(list "-DBUILD_TESTING=off")
#:phases #:tests? #f
(modify-phases %standard-phases #:phases
(add-after 'install 'wrap-executable #~(modify-phases %standard-phases
(lambda* (#:key inputs outputs #:allow-other-keys) (add-after 'install 'wrap-executable
(let* ((out (assoc-ref outputs "out")) (lambda _
(ffmpeg (assoc-ref inputs "ffmpeg")) (let* ((ffmpeg #$(this-package-input "ffmpeg"))
(frei0r (assoc-ref inputs "frei0r-plugins")) (frei0r #$(this-package-input "frei0r-plugins"))
(ladspa (assoc-ref inputs "ladspa")) (ladspa #$(this-package-input "ladspa"))
(qtbase (assoc-ref inputs "qtbase"))) (qtbase #$(this-package-input "qtbase")))
(wrap-program (string-append out "/bin/kdenlive") (wrap-program (string-append #$output "/bin/kdenlive")
`("PATH" ":" prefix `("PATH" ":" prefix
,(list (string-append ffmpeg "/bin"))) ,(list (string-append ffmpeg "/bin")))
`("FREI0R_PATH" ":" = `("FREI0R_PATH" ":" =
(,(string-append frei0r "/lib/frei0r-1"))) (,(string-append frei0r "/lib/frei0r-1")))
`("LADSPA_PATH" ":" = `("LADSPA_PATH" ":" =
(,(string-append ladspa "/lib/ladspa"))) (,(string-append ladspa "/lib/ladspa")))
`("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
(list bash-minimal (list bash-minimal
breeze ; make dark them available easily breeze ; make dark them available easily
breeze-icons ; recommended icon set breeze-icons ; recommended icon set
ffmpeg ffmpeg
frei0r-plugins frei0r-plugins
karchive karchive