[bug#32872] [PATCH] gnu: LibreOffice: Fix GtkFileChooserDialog.

[Leo Famulari <leo@famulari.name>]

Without this, LibreOffice crashes on a foreign distro when the "file
open" dialog is launched. I think there *must* be a better solution but
until we identify it, we should fix the crash. I'm Currently building
this to test it.

* gnu/packages/libreoffice.scm (libreoffice)[arguments]: Add 'wrap-program'
phase.
---
 gnu/packages/libreoffice.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/libreoffice.scm b/gnu/packages/libreoffice.scm
index 35d49b021..198d4a625 100644
--- a/gnu/packages/libreoffice.scm
+++ b/gnu/packages/libreoffice.scm
@@ -1087,7 +1087,18 @@ converting QuarkXPress file format.  It supports versions 3.1 to 4.1.")
                  (mkdir-p (string-append out "/share/icons/hicolor"))
                  (copy-recursively "sysui/desktop/icons/hicolor"
                                    (string-append out "/share/icons/hicolor")))
-               #t)))
+               #t))
+           (add-after 'bin-and-desktop-install 'wrap-programs
+             (lambda* (#:key inputs outputs #:allow-other-keys)
+                      (let* ((out (assoc-ref outputs "out"))
+                             (bin (string-append out "/bin")))
+                        (for-each (lambda (file)
+                                    (wrap-program file
+                                      `("GSETTINGS_SCHEMA_DIR" =
+                                        (,(string-append (assoc-ref inputs "gtk+")
+                                                         "/share/glib-2.0/schemas"))))
+                                    (find-files bin)))
+                        #t))))
        #:configure-flags
         (list
           "--enable-release-build"
-- 
2.19.0