Color support detection

type setting =
  1. | Auto
  2. | Always
  3. | Never
val default_setting : setting