From 20efe92bb616f4547098e01c8e9dcbe13fc0ec8c Mon Sep 17 00:00:00 2001
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Wed, 26 Oct 2022 00:12:07 +0200
Subject: Automatic channel synchronization

---
 vkraus/packages/disfluid.scm | 29 ++++++++++++++++++++++++++---
 1 file changed, 26 insertions(+), 3 deletions(-)

(limited to 'vkraus/packages/disfluid.scm')

diff --git a/vkraus/packages/disfluid.scm b/vkraus/packages/disfluid.scm
index 79a5e75..6317dca 100644
--- a/vkraus/packages/disfluid.scm
+++ b/vkraus/packages/disfluid.scm
@@ -32,6 +32,10 @@
   #:use-module
   (guix modules)
   #:use-module
+  (guix utils)
+  #:use-module
+  (ice-9 match)
+  #:use-module
   (guix packages)
   #:use-module
   ((guix licenses) #:prefix license:)
@@ -52,6 +56,24 @@
   #:use-module
   (gnu packages texinfo))
 
+(define gtk-minimal
+  (package
+    (inherit gtk)
+    (arguments
+      (substitute-keyword-arguments
+        (package-arguments gtk)
+        ((#:configure-flags configure-flags (gexp list))
+         (gexp (append
+                 (ungexp configure-flags)
+                 (list "-Dmedia-gstreamer=disabled"))))))
+    (inputs
+      (filter
+        (match-lambda
+          (("gst-plugins-bad" . _) #f)
+          (("gst-plugins-base" . _) #f)
+          (else #t))
+        (package-inputs gtk)))))
+
 (define-public disfluid
   (package
     (name "disfluid")
@@ -81,10 +103,10 @@
                                 (uri (git-reference
                                        (url "https://labo.planete-kraus.eu/disfluid.git")
                                        (commit
-                                         "c5c3d27fdee5c888929609c92aed595319b27a0f")))
+                                         "3a518ca30db6661738f7cdb15451e3d89edecd40")))
                                 (sha256
                                   (base32
-                                    "0sjfardsjw3bhcra1bdza561nra39q4fgjsyqyyjz7zvyal58xcf"))))))
+                                    "0db2xaw1q09lkvqxv89j52alalj6lilrpvzjjrf68l1f2ia54l5w"))))))
                     (ungexp output)
                     #:follow-symlinks?
                     #t))))))
@@ -349,7 +371,8 @@
         ,autoconf-archive
         ,findutils
         ,tzdata-for-tests))
-    (inputs `(,guile-3.0 ,glib ,gtk ,bash-minimal))
+    (inputs
+      `(,guile-3.0 ,glib ,gtk-minimal ,bash-minimal))
     (propagated-inputs
       `(,guile-gcrypt
         ,guile-json-4
-- 
cgit v1.2.3