My agentic slop goes here. Not intended for anyone else!
anil.recoil.org
1(** Kitty Graphics Protocol - Response Parsing *)
2
3type t
4(** A parsed terminal response. *)
5
6val parse : string -> t option
7(** Parse a response from terminal output. *)
8
9val is_ok : t -> bool
10(** Check if the response indicates success. *)
11
12val message : t -> string
13(** Get the response message. *)
14
15val error_code : t -> string option
16(** Extract the error code if this is an error response. *)
17
18val image_id : t -> int option
19(** Get the image ID from the response. *)
20
21val image_number : t -> int option
22(** Get the image number from the response. *)
23
24val placement_id : t -> int option
25(** Get the placement ID from the response. *)