let color_string_of_status s =
  match s with
  | Ocvs_types.Up_to_date -> "DarkGreen"
  | Ocvs_types.Locally_modified
  | Ocvs_types.Locally_added
  | Ocvs_types.Locally_removed -> "SlateBlue"
  | Ocvs_types.Needs_checkout -> "Orange"
  | Ocvs_types.Needs_Patch -> "Orange"
  | Ocvs_types.Needs_Merge -> "Orange"
  | Ocvs_types.Conflicts_on_merge -> "Red"
  | Ocvs_types.Unknown -> "Black"