[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#54744] [PATCH staging v2 11/20] gnu: gst-plugins/selection: Impleme
From: |
Liliana Marie Prikler |
Subject: |
[bug#54744] [PATCH staging v2 11/20] gnu: gst-plugins/selection: Implement in terms of G-Expressions. |
Date: |
Tue, 28 Jun 2022 20:41:37 +0200 |
* 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.
---
gnu/packages/gstreamer.scm | 26 +++++++++++++-------------
gnu/packages/video.scm | 2 +-
2 files changed, 14 insertions(+), 14 deletions(-)
diff --git a/gnu/packages/gstreamer.scm b/gnu/packages/gstreamer.scm
index d05717f723..f8e2fab2c7 100644
--- a/gnu/packages/gstreamer.scm
+++ b/gnu/packages/gstreamer.scm
@@ -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)
@@ -1031,20 +1032,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
diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index a82b1b8889..eb01467ba3 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -4342,7 +4342,7 @@ (define-public pitivi
(gst-plugins/selection gst-plugins-bad #:plugins
'("debugutils" "transcode")
#:configure-flags
- '("-Dintrospection=enabled"))
+ #~'("-Dintrospection=enabled"))
gst-libav
gsound
gtk+
--
2.36.1
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [bug#54744] [PATCH staging v2 11/20] gnu: gst-plugins/selection: Implement in terms of G-Expressions.,
Liliana Marie Prikler <=