type t = {name : string;code : int;r : int;g : int;b : int;
}val color_of_def : t -> Color.ggval int_of_yojson : [> `Int of 'a ] -> 'aval str_of_yojson : [> `String of 'a ] -> 'aval rgb_tuple_of_yojson :
[> `Assoc of (string * [> `Int of 'a ]) list ] ->
'a * 'a * 'aval ansi_color_of_yojson :
[> `Assoc of
(string
* [> `Assoc of (string * [> `Int of int ]) list
| `Int of int
| `String of string ])
list ] ->
tval load : string -> t listval load_assoc : string -> (int * t) list