feat: export pretty printer for colors

ocaml-tui · Dec 21, 2023 · d64f98e · d64f98e
1 parent 83db5e6
commit d64f98e
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 1 deletion.
diff --git a/CHANGES.md b/CHANGES.md
@@ -8,6 +8,10 @@
 
 * chore: drop dune as a dependency to fix .opam files
 
+* feat: create colors from RGB tuples
+
+* feat: pretty print colors
+
 ## 0.0.1
 
 Initial release, including: 

diff --git a/tty/color.ml b/tty/color.ml
@@ -1,5 +1,12 @@
 type t = RGB of int * int * int | ANSI of int | ANSI256 of int | No_color
 
+let pp fmt t =
+  match t with
+  | RGB (r, g, b) -> Format.fprintf fmt "RGB(%d,%d,%d)" r g b
+  | ANSI i -> Format.fprintf fmt "ANSI(%d)" i
+  | ANSI256 i -> Format.fprintf fmt "ANSI256(%d)" i
+  | No_color -> Format.fprintf fmt "No_color"
+
 exception Invalid_color of string
 exception Invalid_color_param of string
 exception Invalid_color_num of string * int

diff --git a/tty/color.mli b/tty/color.mli
@@ -5,7 +5,8 @@ type t = private
   | No_color
 
 val make : string -> t
-val of_rgb : (int * int * int) -> t
+val of_rgb : int * int * int -> t
+val pp : Format.formatter -> t -> unit
 
 exception Invalid_color of string
 exception Invalid_color_param of string