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"