-/*
- FIXME. This is broken until we have a generic way of
- putting lists inside the \paper block.
- */
-Interval
-Paper_def::line_dimensions_int (int n) const
-{
- Real lw = get_realvar (ly_symbol2scm ("linewidth"));
- Real ind = n? 0.0:get_realvar (ly_symbol2scm ("indent"));
-
- return Interval (ind, lw);
-}
-
-
-
-
-Paper_outputter*
-Paper_def::get_paper_outputter (String outname) const
-{
- progress_indication (_f ("paper output to `%s'...",
- outname == "-" ? String ("<stdout>") : outname));
-
- global_input_file->target_strings_.push (outname);
- Paper_outputter * po = new Paper_outputter (outname);
- Path p = split_path (outname);
- p.ext = "";
- po->basename_ = p.to_string ();
- return po;
-}
-
-
-/*
- Todo: use symbols and hashtable idx?
-*/