gnu: gst-plugins/selection: Implement in terms of G-Expressions.

* gnu/packages/gstreamer.scm (gst-plugins/selection)[#:configure-flags]:
Use G-Expressions.
[#:phases]: Likewise.  Drop trailing #t.
* gnu/packages/video.scm (pitivi)[inputs]: Adjust accordingly.
This commit is contained in:
Liliana Marie Prikler 2022-06-28 20:41:37 +02:00
parent badee2b419
commit f1fdde3c45
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
2 changed files with 14 additions and 14 deletions

View file

@ -29,6 +29,7 @@
(define-module (gnu packages gstreamer)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix gexp)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix build-system cmake)
@ -1035,20 +1036,19 @@ (define-public gst-plugins/selection
(package/inherit pkg
(arguments
(substitute-keyword-arguments (package-arguments pkg)
((#:configure-flags flags `(,@(or configure-flags '())))
`(append
((#:configure-flags flags #~'())
#~(append
(list
,@(map (lambda (plugin)
(string-append "-D" plugin "=enabled"))
plugins))
(list ,@(or configure-flags flags))))
((#:phases phases)
`(modify-phases ,phases
(add-after 'unpack 'disable-auto-plugins
(lambda _
(substitute* "meson_options.txt"
(("'auto'") "'disabled'"))
#t)))))))))
#$@(map (lambda (plugin)
(string-append "-D" plugin "=enabled"))
plugins))
#$(or configure-flags flags)))
((#:phases phases)
#~(modify-phases #$phases
(add-after 'unpack 'disable-auto-plugins
(lambda _
(substitute* "meson_options.txt"
(("'auto'") "'disabled'")))))))))))
(define-public python-gst
(package

View file

@ -4353,7 +4353,7 @@ (define-public pitivi
(gst-plugins/selection gst-plugins-bad #:plugins
'("debugutils" "transcode")
#:configure-flags
'("-Dintrospection=enabled"))
#~'("-Dintrospection=enabled"))
gst-libav
gsound
gtk+