let available_source_style_schemes ?(manager=source_style_scheme_manager) () = List.fold_right (fun id acc -> match manager#style_scheme id with None -> acc | Some l -> l :: acc) manager#style_scheme_ids []