Kitty Graphics Protocol in OCaml
terminal
graphics
ocaml
1(*---------------------------------------------------------------------------
2 Copyright (c) 2025 Anil Madhavapeddy. All rights reserved.
3 SPDX-License-Identifier: ISC
4 ---------------------------------------------------------------------------*)
5
6type t = [ `Direct | `File | `Tempfile ]
7
8let to_char : t -> char = function
9 | `Direct -> 'd'
10 | `File -> 'f'
11 | `Tempfile -> 't'