feat: allow creation of colors from parts

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

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/tty/color.ml b/tty/color.ml
@@ -20,6 +20,8 @@ let rgb str =
 let ansi i = ANSI i
 let ansi256 i = ANSI256 i
 let no_color = No_color
+let cap_rgb x = Int.(min (max 0 x) 255)
+let of_rgb (r, g, b) = RGB (cap_rgb r, cap_rgb g, cap_rgb b)
 
 let make str =
   if String.starts_with ~prefix:"#" str then rgb str

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