My agentic slop goes here. Not intended for anyone else!
anil.recoil.org
1(* Kitty Graphics Protocol - Placement *)
2
3type t = {
4 source_x : int option;
5 source_y : int option;
6 source_width : int option;
7 source_height : int option;
8 cell_x_offset : int option;
9 cell_y_offset : int option;
10 columns : int option;
11 rows : int option;
12 z_index : int option;
13 placement_id : int option;
14 cursor : Kgp_types.cursor option;
15 unicode_placeholder : bool;
16}
17
18let empty =
19 {
20 source_x = None;
21 source_y = None;
22 source_width = None;
23 source_height = None;
24 cell_x_offset = None;
25 cell_y_offset = None;
26 columns = None;
27 rows = None;
28 z_index = None;
29 placement_id = None;
30 cursor = None;
31 unicode_placeholder = false;
32 }
33
34let make ?source_x ?source_y ?source_width ?source_height ?cell_x_offset
35 ?cell_y_offset ?columns ?rows ?z_index ?placement_id ?cursor
36 ?(unicode_placeholder = false) () =
37 {
38 source_x;
39 source_y;
40 source_width;
41 source_height;
42 cell_x_offset;
43 cell_y_offset;
44 columns;
45 rows;
46 z_index;
47 placement_id;
48 cursor;
49 unicode_placeholder;
50 }