01/01: gnu: audacity: Fix GtkFileChooserDialog.

[Kei Kebreau]

kkebreau pushed a commit to branch master
in repository guix.

commit 99e0fb24fb7984304f139cb02b31643216642491
Author: Kei Kebreau <address@hidden>
Date:   Wed Aug 29 19:47:12 2018 -0400

    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(-)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index f7f8319..5468742 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -324,7 +324,7 @@ engineers, musicians, soundtrack editors and composers.")
     (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 @@ engineers, musicians, soundtrack editors and composers.")
                (("../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