Source file `style.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
open Base

type colour =
  | Black
  | Red
  | Green
  | Yellow
  | Blue
  | Magenta
  | Cyan
  | White
[@@deriving sexp_of, compare ~localize, equal ~localize]

type t =
  { bold : bool
  ; fg : colour
  ; bg : colour
  }
[@@deriving sexp_of, compare ~localize, equal ~localize]

let default = { bold = false; fg = White; bg = Black }