open StdLabels

let default = Color.of_rgb 5 255 255

let theme =
  [| "#2e3440"
   ; "#3b4252"
   ; "#434c5e"
   ; "#4c566a"
   (* Bright *)
   ; "#d8dee9"
   ; ""
   ; "#eceff4"
   (* Frost *)
   ; "#8fbcbb"
   ; ""
   ; ""
   ; ""
   (* Aurora 11 - *)
   ; "#bf616a" (* Redd color *)
   ; ""
   ; ""
   ; "#a3be8c" (* Green color *)


  |]
  |> Array.map ~f:(fun f ->
      Color.of_hexstring f
      |> Option.value ~default
    )

let set_color t f =
  let Color.Rgba'.{r; g; b; _ } = Color.to_rgba' (Array.get theme t) in
  f r g b


let to_gg t =
  let Color.Rgba'.{r; g; b; _ } = Color.to_rgba' (Array.get theme t) in
  Gg.Color.of_srgb (Gg.V4.v r g b 1.)