unofficial mirror of guix-devel@gnu.org 
 help / color / mirror / code / Atom feed
blob 5b9d855b2ef89fdbdc69f979c69ca12c47536ca8 3251 bytes (raw)
name: packages/patches/flatpak-fix-fonts-icons.patch 	 # note: path name is non-authoritative(*)

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
 
modify from https://github.com/NixOS/nixpkgs/pull/262462

diff --git a/common/flatpak-run.c b/common/flatpak-run.c
index 94ad013..5c9f55e 100644
--- a/common/flatpak-run.c
+++ b/common/flatpak-run.c
@@ -871,6 +871,49 @@ out:
   return res;
 }
 
+static void
+get_gnu_closure (GHashTable *closure, const gchar *source_path)
+{
+  if (g_file_test (source_path, G_FILE_TEST_IS_SYMLINK))
+    {
+      g_autofree gchar *path = g_malloc(PATH_MAX);
+      realpath(source_path, path);
+      if (g_str_has_prefix(path, "/gnu/store/"))
+        {
+          *strchr(path + strlen("/gnu/store/"), '/') = 0;
+          g_hash_table_add(closure, g_steal_pointer (&path));
+        }
+    }
+  else if (g_file_test (source_path, G_FILE_TEST_IS_DIR))
+    {
+      g_autoptr(GDir) dir = g_dir_open(source_path, 0, NULL);
+      const gchar *file_name;
+      while ((file_name = g_dir_read_name(dir)))
+        {
+          g_autofree gchar *path = g_build_filename (source_path, file_name, NULL);
+          get_gnu_closure (closure, path);
+        }
+    }
+}
+
+static void
+add_gnu_store_symlink_targets (FlatpakBwrap *bwrap, const gchar *source_path)
+{
+  GHashTable *closure = g_hash_table_new_full (g_str_hash, g_str_equal, g_free, NULL);
+
+  get_gnu_closure(closure, source_path);
+
+  GHashTableIter iter;
+  gpointer path;
+  g_hash_table_iter_init(&iter, closure);
+  while (g_hash_table_iter_next(&iter, &path, NULL))
+    {
+      flatpak_bwrap_add_args (bwrap, "--ro-bind", path, path, NULL);
+    }
+
+  g_hash_table_destroy(closure);
+}
+
 static void
 add_font_path_args (FlatpakBwrap *bwrap)
 {
@@ -898,6 +946,18 @@ add_font_path_args (FlatpakBwrap *bwrap)
                               "\t<remap-dir as-path=\"%s\">/run/host/fonts</remap-dir>\n",
                               SYSTEM_FONTS_DIR);
     }
+  else if (g_file_test ("/run/current-system/profile/share/fonts", G_FILE_TEST_EXISTS))
+    {
+      add_gnu_store_symlink_targets (bwrap, "/run/current-system/profile/share/fonts");
+      flatpak_bwrap_add_args (bwrap,
+                              "--ro-bind",
+                              "/run/current-system/profile/share/fonts",
+                              "/run/host/fonts",
+                              NULL);
+      g_string_append_printf (xml_snippet,
+                              "\t<remap-dir as-path=\"%s\">/run/host/fonts</remap-dir>\n",
+                              "/run/current-system/profile/share/fonts");
+    }
 
   if (g_file_test ("/usr/local/share/fonts", G_FILE_TEST_EXISTS))
     {
@@ -998,6 +1058,13 @@ add_icon_path_args (FlatpakBwrap *bwrap)
                               "--ro-bind", "/usr/share/icons", "/run/host/share/icons",
                               NULL);
     }
+  else if (g_file_test ("/run/current-system/profile/share/icons", G_FILE_TEST_IS_DIR))
+    {
+      add_gnu_store_symlink_targets (bwrap, "/run/current-system/profile/share/icons");
+      flatpak_bwrap_add_args (bwrap,
+                              "--ro-bind", "/run/current-system/profile/share/icons", "/run/host/share/icons",
+                              NULL);
+    }
 
   user_icons_path = g_build_filename (g_get_user_data_dir (), "icons", NULL);
   user_icons = g_file_new_for_path (user_icons_path);

debug log:

solving 5b9d855b2ef89fdbdc69f979c69ca12c47536ca8 ...
found 5b9d855b2ef89fdbdc69f979c69ca12c47536ca8 in https://git.savannah.gnu.org/cgit/guix.git

(*) Git path names are given by the tree(s) the blob belongs to.
    Blobs themselves have no identifier aside from the hash of its contents.^

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).