gnu: Add ruby-puma.
[jackhill/guix/guix.git] / gnu / packages / patches / gtk2-respect-GUIX_GTK2_PATH.patch
CommitLineData
2a6afac9
RW
1This patch makes GTK+ look for additional modules in a list of directories
2specified by the environment variable "GUIX_GTK2_PATH". This can be used
3instead of "GTK_PATH" to make GTK+ find modules that are incompatible with
4other major versions of GTK+.
5
6--- a/gtk/gtkmodules.c 2014-09-29 22:02:17.000000000 +0200
7+++ b/gtk/gtkmodules.c 2015-12-02 18:41:53.306396938 +0100
8@@ -55,6 +55,7 @@
9 get_module_path (void)
10 {
11 const gchar *module_path_env;
12+ const gchar *module_guix_gtk2_path_env;
13 const gchar *exe_prefix;
14 const gchar *home_dir;
15 gchar *home_gtk_dir = NULL;
16@@ -70,6 +71,7 @@
17 home_gtk_dir = g_build_filename (home_dir, ".gtk-2.0", NULL);
18
19 module_path_env = g_getenv ("GTK_PATH");
20+ module_guix_gtk2_path_env = g_getenv ("GUIX_GTK2_PATH");
21 exe_prefix = g_getenv ("GTK_EXE_PREFIX");
22
23 if (exe_prefix)
24@@ -77,9 +79,21 @@
25 else
26 default_dir = g_build_filename (GTK_LIBDIR, "gtk-2.0", NULL);
27
28- if (module_path_env && home_gtk_dir)
29+ if (module_guix_gtk2_path_env && module_path_env && home_gtk_dir)
30+ module_path = g_build_path (G_SEARCHPATH_SEPARATOR_S,
31+ module_guix_gtk2_path_env, module_path_env, home_gtk_dir, default_dir, NULL);
32+ else if (module_guix_gtk2_path_env && home_gtk_dir)
33+ module_path = g_build_path (G_SEARCHPATH_SEPARATOR_S,
34+ module_guix_gtk2_path_env, home_gtk_dir, default_dir, NULL);
35+ else if (module_guix_gtk2_path_env && module_path_env)
36+ module_path = g_build_path (G_SEARCHPATH_SEPARATOR_S,
37+ module_guix_gtk2_path_env, module_path_env, default_dir, NULL);
38+ else if (module_path_env && home_gtk_dir)
39 module_path = g_build_path (G_SEARCHPATH_SEPARATOR_S,
40 module_path_env, home_gtk_dir, default_dir, NULL);
41+ else if (module_guix_gtk2_path_env)
42+ module_path = g_build_path (G_SEARCHPATH_SEPARATOR_S,
43+ module_guix_gtk2_path_env, default_dir, NULL);
44 else if (module_path_env)
45 module_path = g_build_path (G_SEARCHPATH_SEPARATOR_S,
46 module_path_env, default_dir, NULL);