Misc.Color
type setting =
| Auto
| Always
| Never
val default_setting : setting
val is_enabled : unit -> bool