(LY_DEFINE): also display font and

config dirs. Aids debugging.

diff --git a/ChangeLog b/ChangeLog
index 797cbf989dd2bc92b7be02245119c5744f404781..163b5bf1d26e4fb2bafbaca061e6492f67112477 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-01-11  Han-Wen Nienhuys  <hanwen@xs4all.nl>
+
+       * lily/font-config-scheme.cc (LY_DEFINE): also display font and
+       config dirs. Aids debugging. 
+
 2006-01-07  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
        * lily/bar-line.cc (calc_bar_size): inspect staff->extent (Y_AXIS)

diff --git a/Documentation/topdocs/NEWS.tely b/Documentation/topdocs/NEWS.tely
index 8939f8f22d34e54f87b88cd4962409642575d2f9..a72abdfeaf2d529f5a850756bfce963c78cb2bba 100644 (file)
--- a/Documentation/topdocs/NEWS.tely
+++ b/Documentation/topdocs/NEWS.tely
@@ -52,7 +52,7 @@ example
 
 @lilypond[raggedright]
 \new Staff  \relative c' {
-  \override Staff.StaffSymbol #'line-positions = #'(-7 -2 0 3 9)
+  \override Staff.StaffSymbol #'line-positions = #'(-7 -2 0 7)
   g c f b e a
 }
 @end lilypond

diff --git a/lily/font-config-scheme.cc b/lily/font-config-scheme.cc
index 662a9a5608fee23c5044f13a9d73d661cc1da8af..157d1bb9110ca8dc2ab316efc78e020a12d5913a 100644 (file)
--- a/lily/font-config-scheme.cc
+++ b/lily/font-config-scheme.cc
@@ -34,6 +34,21 @@ display_fontset (FcFontSet *fs)
     }
 }
 
+void
+display_strlist (char const*what, FcStrList *slist)
+{
+  while (FcChar8 *dir = FcStrListNext (slist))
+    {
+      printf("%s: %s\n", what, dir);
+    }
+}
+
+void
+display_dirs (FcConfig *fcc)
+{
+  display_strlist ("config dir", FcConfigGetConfigDirs(fcc));
+  display_strlist ("font dir", FcConfigGetFontDirs(fcc));
+}
 
 void
 display_list (FcConfig *fcc)
@@ -60,9 +75,9 @@ display_list (FcConfig *fcc)
 LY_DEFINE (ly_font_config_display_fonts, "ly:font-config-display-fonts", 0, 0, 0,
           (),
           "Dump a list of all fonts visible to FontConfig.")
-
 {
   display_list (NULL);
+  display_dirs (NULL);
   
   return SCM_UNSPECIFIED;
 }