ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-04 02:19:18 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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
Show stats Download patch file Download diff file Expand all files Collapse all files

26
gnu/packages/gstreamer.scm
View file

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

2
gnu/packages/video.scm
View file

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