(* Kitty Graphics Protocol - Detection *)

let make_query () =
  (* Query without DA1 suffix - matches Go's QuerySupport() *)
  let cmd =
    Kgp_command.query ~format:`Rgb24 ~transmission:`Direct ~width:1 ~height:1 ()
  in
  Kgp_command.to_string cmd ~data:"\x00\x00\x00"

let supports_graphics response ~da1_received =
  response
  |> Option.map Kgp_response.is_ok
  |> Option.value ~default:(not da1_received)