-
- SCM ss = me->paper_l ()->style_sheet_;
-
- SCM proc = gh_cdr (scm_assoc (ly_symbol2scm ("properties-to-font"),
- ss));
-
- SCM fonts = gh_cdr (scm_assoc (ly_symbol2scm ("fonts"), ss));
-
- assert (gh_procedure_p (proc));
- SCM font_name = gh_call2 (proc, fonts, chain);
-
- Font_metric *fm = me->paper_l ()->find_font (font_name, 1.0);
-
- return fm;
+ SCM defaults
+ = g->layout ()->lookup_variable (ly_symbol2scm ("font-defaults"));
+ if (defaults == SCM_UNDEFINED)
+ defaults = SCM_EOL;
+ return g->get_property_alist_chain (defaults);