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"