Kitty Graphics Protocol in OCaml
anil.recoil.org
terminal
graphics
ocaml
1(*---------------------------------------------------------------------------
2 Copyright (c) 2025 Anil Madhavapeddy. All rights reserved.
3 SPDX-License-Identifier: ISC
4 ---------------------------------------------------------------------------*)
5
6type t = [ `Alpha_blend | `Overwrite ]
7
8let to_int : t -> int = function
9 | `Alpha_blend -> 0
10 | `Overwrite -> 1