From 99e0fb24fb7984304f139cb02b31643216642491 Mon Sep 17 00:00:00 2001
From: Kei Kebreau <kkebreau@posteo.net>
Date: Wed, 29 Aug 2018 19:47:12 -0400
Subject: gnu: audacity: Fix GtkFileChooserDialog.

* gnu/packages/audio.scm (audacity)[arguments]: Add 'wrap-program' phase to fix
GtkFileChooserDialog.
[inputs]: Rename "gtk" to "gtk+".
---
 gnu/packages/audio.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'gnu')

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index f7f831918b..5468742c81 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -324,7 +324,7 @@ (define-public audacity
     (build-system gnu-build-system)
     (inputs
      `(("wxwidgets" ,wxwidgets)
-       ("gtk" ,gtk+)
+       ("gtk+" ,gtk+)
        ("alsa-lib" ,alsa-lib)
        ("jack" ,jack-1)
        ("expat" ,expat)
@@ -410,6 +410,15 @@ (define-public audacity
                (("../lib-src/portmidi/porttime/porttime.h") "porttime.h"))
              (substitute* "src/prefs/MidiIOPrefs.cpp"
                (("../../lib-src/portmidi/pm_common/portmidi.h") "portmidi.h"))
+             #t))
+         (add-after 'install 'wrap-program
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (wrap-program (string-append (assoc-ref outputs "out")
+                                          "/bin/audacity")
+               ;; For GtkFileChooserDialog.
+               `("GSETTINGS_SCHEMA_DIR" =
+                 (,(string-append (assoc-ref inputs "gtk+")
+                                  "/share/glib-2.0/schemas"))))
              #t)))
        ;; The test suite is not "well exercised" according to the developers,
        ;; and fails with various errors.  See
-- 
cgit v1.2.3