+
+ return SCM_UNSPECIFIED;
+}
+
+LY_DEFINE (ly_font_config_add_directory, "ly:font-config-add-directory", 1, 0, 0,
+ (SCM dir),
+ "Add directory @var{dir} to FontConfig.")
+{
+ LY_ASSERT_TYPE (scm_is_string, dir, 1);
+
+ string d = ly_scm2string (dir);
+
+ if (!FcConfigAppFontAddDir (0, (const FcChar8 *)d.c_str ()))
+ error (_f ("failed adding font directory: %s", d.c_str ()));
+ else
+ debug_output (_f ("Adding font directory: %s", d.c_str ()));
+