02/04: gnu: solvespace: Wrap with GSETTINGS_SCHEMA_DIR.

[guix-commits]

cbaines pushed a commit to branch master
in repository guix.

commit 699ae7f5da5a2bfe5112fc7a1bdd4c25227bd4bd
Author: Kristian Lein-Mathisen <kristianlein@gmail.com>
AuthorDate: Mon Sep 12 11:51:02 2022 +0200

    gnu: solvespace: Wrap with GSETTINGS_SCHEMA_DIR.
    
    By opening File => Open in the menu, SolveSpace crashes with:
    
    (solvespace:3891): GLib-GIO-ERROR **: 11:52:37.518: Settings schema
    'org.gtk.Settings.FileChooser' is not installed fish: Job 1, 'solvespace'
    terminated by signal SIGTRAP (Trace or breakpoint trap)
    
    This patch should fix that, showing the GTK FileChooser dialog instead.
    Solution was taken from gnu/packages/messaging.scm (utox).
    
    * gnu/packages/engineering.scm (solvespace)[arguments]: Wrap with
    GSETTINGS_SCHEMA_DIR.
    
    Signed-off-by: Christopher Baines <mail@cbaines.net>
---
 gnu/packages/engineering.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/engineering.scm b/gnu/packages/engineering.scm
index a8b9f1e786..673ea8023b 100644
--- a/gnu/packages/engineering.scm
+++ b/gnu/packages/engineering.scm
@@ -2952,7 +2952,15 @@ dynamic calibration of the milling depth.")
                            (("message\\(STATUS \"Using in-tree mimalloc\"\\)")
                             "message(STATUS \"Using guix packaged mimalloc\")")
                            (("add_subdirectory\\(extlib/mimalloc 
EXCLUDE_FROM_ALL\\)")
-                            "find_package(mimalloc REQUIRED)")))))))
+                            "find_package(mimalloc REQUIRED)"))))
+                     (add-after 'install 'wrap-program
+                       (lambda* (#:key inputs outputs #:allow-other-keys)
+                         (wrap-program (string-append (assoc-ref outputs "out")
+                                                      "/bin/solvespace")
+                           ;; For GtkFileChooserDialog.
+                           `("GSETTINGS_SCHEMA_DIR" =
+                             (,(string-append (assoc-ref inputs "gtk+")
+                                              
"/share/glib-2.0/schemas")))))))))
       (inputs (list cairo
                     eigen
                     freetype