My agentic slop goes here. Not intended for anyone else!
anil.recoil.org
1(* Kitty Graphics Protocol - Detection *)
2
3let make_query () =
4 (* Query without DA1 suffix - matches Go's QuerySupport() *)
5 let cmd =
6 Kgp_command.query ~format:`Rgb24 ~transmission:`Direct ~width:1 ~height:1 ()
7 in
8 Kgp_command.to_string cmd ~data:"\x00\x00\x00"
9
10let supports_graphics response ~da1_received =
11 response
12 |> Option.map Kgp_response.is_ok
13 |> Option.value ~default:(not da1_received)