Module Layer_code

type color = string
type layer = {
  1. title : string;
  2. description : string;
  3. files : (Common.filename * file_info) list;
  4. kinds : (kind * color) list;
}
and file_info = {
  1. micro_level : (int * kind) list;
  2. macro_level : (kind * float) list;
}
and kind = string
val red_green_properties : (kind * color) list
val heat_map_properties : (kind * color) list
type layers_with_index = {
  1. root : Common.dirname;
  2. layers : (layer * bool) list;
  3. micro_index : (Common.filename, (int, color) Hashtbl.t) Hashtbl.t;
  4. macro_index : (Common.filename, (float * color) list) Hashtbl.t;
}
val build_index_of_layers : root:Common.dirname -> (layer * bool) list -> layers_with_index
val has_active_layers : layers_with_index -> bool
val load_layer : Common.filename -> layer
val save_layer : layer -> Common.filename -> unit
val json_of_layer : layer -> Json_type.t
val layer_of_json : Json_type.t -> layer
val simple_layer_of_parse_infos : root:Common.dirname -> title:string -> ?description:string -> (Parse_info.t * kind) list -> (kind * color) list -> layer
val stat_of_layer : layer -> (kind * int) list
val filter_layer : (Common.filename -> bool) -> layer -> layer