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
6(* Cmdliner Support for Kitty Graphics Protocol *)
7
8open Cmdliner
9
10let graphics_docs = "GRAPHICS OPTIONS"
11
12let graphics_term =
13 let doc = "Force graphics output enabled, ignoring terminal detection." in
14 let enable = Arg.info ["g"; "graphics"] ~doc ~docs:graphics_docs in
15 let doc = "Disable graphics output, use text placeholders instead." in
16 let disable = Arg.info ["no-graphics"] ~doc ~docs:graphics_docs in
17 let doc = "Force tmux passthrough mode for graphics." in
18 let tmux = Arg.info ["tmux"] ~doc ~docs:graphics_docs in
19 let choose enable disable tmux : Kgp.Terminal.graphics_mode =
20 if enable then `Enabled
21 else if disable then `Disabled
22 else if tmux then `Tmux
23 else `Auto
24 in
25 Term.(const choose
26 $ Arg.(value & flag enable)
27 $ Arg.(value & flag disable)
28 $ Arg.(value & flag tmux))