From 5081340f2efebc823f6f7ea5c29712961a0834a1 Mon Sep 17 00:00:00 2001
From: dolphin6k <dolphin6k@wmail.plala.or.jp>
Date: Sun, 2 Jul 2023 18:07:58 +0900
Subject: [PATCH] Trial to make listing locale fonts shipped with Tux Paint by
 --listfonts

---
 src/tuxpaint.c | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/src/tuxpaint.c b/src/tuxpaint.c
index 6cd540ad2..619eb80b2 100644
--- a/src/tuxpaint.c
+++ b/src/tuxpaint.c
@@ -8128,6 +8128,19 @@ void show_fonts(void) {
   PangoFontFamily **families;
   int i, n_families;
   char * * family_names;
+  char locale_fontdir[MAX_PATH];
+  FcBool fontAddStatus;
+  
+  snprintf(locale_fontdir, sizeof(locale_fontdir), "%s/fonts", DATA_PREFIX);
+  
+  fontAddStatus = FcConfigAppFontAddDir(FcConfigGetCurrent(), (const FcChar8 *) locale_fontdir);
+  if (fontAddStatus == FcFalse)
+    {
+      fprintf(stderr, "Unable to add font dir %s\n", locale_fontdir);
+    }
+  
+  FcDirCacheRead((const FcChar8 *) locale_fontdir, FcTrue /* force */, FcConfigGetCurrent());
+  FcDirCacheRescan((const FcChar8 *) locale_fontdir, FcConfigGetCurrent());
 
   generate_fontconfig_cache_real();