branch master updated: gnu: Audacity: Fix a crash on foreign distros.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

lfam pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new fa7f478  gnu: Audacity: Fix a crash on foreign distros.
fa7f478 is described below

commit fa7f4781ca79ba55ce923bc6b3f57fb806dfe900
Author: Leo Famulari <leo@famulari.name>
AuthorDate: Fri Mar 5 14:14:30 2021 -0500

    gnu: Audacity: Fix a crash on foreign distros.
    
    Without the wrap phase, Audacity crashes like this when trying to use the 
"Open
    file" dialog:
    
    (audacity:28276): GLib-GIO-ERROR **: 14:14:55.211: Settings schema 
'org.gtk.Settings.FileChooser' is not installed
    
    * gnu/packages/audio.scm (audacity)[arguments]: Add (guix build
    glib-or-gtk-build-system) to #:imported-modules. Adjust #:modules 
accordingly.
    Add phases 'glib-or-gtk-wrap'.
---
 gnu/packages/audio.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index 052360d..2440fed 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -750,6 +750,12 @@ engineers, musicians, soundtrack editors and composers.")
         "-Daudacity_use_ffmpeg=linked"
         "-Daudacity_use_lame=system"
         "-Daudacity_use_portsmf=system")
+       #:imported-modules ((guix build glib-or-gtk-build-system)
+                           ,@%cmake-build-system-modules)
+       #:modules
+       ((guix build utils)
+        (guix build cmake-build-system)
+        ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:))
        #:phases
        (modify-phases %standard-phases
          (add-after 'unpack 'comment-out-revision-ident
@@ -766,7 +772,9 @@ engineers, musicians, soundtrack editors and composers.")
                (("../lib-src/portmidi/pm_common/portmidi.h") "portmidi.h")
                (("../lib-src/portmidi/porttime/porttime.h") "porttime.h"))
              (substitute* "src/prefs/MidiIOPrefs.cpp"
-               (("../../lib-src/portmidi/pm_common/portmidi.h") 
"portmidi.h")))))
+               (("../../lib-src/portmidi/pm_common/portmidi.h") 
"portmidi.h"))))
+         (add-after 'wrap-program 'glib-or-gtk-wrap
+           (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))
          ;; The test suite is not "well exercised" according to the developers,
          ;; and fails with various errors.  See
          ;; <http://sourceforge.net/p/audacity/mailman/message/33524292/>.