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