Tailwind classes in OCaml
anil.recoil.org
1(** Layout utilities combining display, position, and box model *)
2
3(** Layout configuration *)
4type t
5
6(** Overflow values *)
7type overflow = [
8 | `Auto
9 | `Hidden
10 | `Clip
11 | `Visible
12 | `Scroll
13]
14
15(** Box sizing *)
16type box_sizing = [
17 | `Border_box
18 | `Content_box
19]
20
21(** Object fit *)
22type object_fit = [
23 | `Contain
24 | `Cover
25 | `Fill
26 | `None
27 | `Scale_down
28]
29
30(** Object position *)
31type object_position = [
32 | `Bottom | `Center | `Left | `Left_bottom | `Left_top
33 | `Right | `Right_bottom | `Right_top | `Top
34]
35
36(** Set width *)
37val width : Size.t -> t
38
39(** Set height *)
40val height : Size.t -> t
41
42(** Set min width *)
43val min_width : Size.t -> t
44
45(** Set max width *)
46val max_width : Size.t -> t
47
48(** Set min height *)
49val min_height : Size.t -> t
50
51(** Set max height *)
52val max_height : Size.t -> t
53
54(** Set overflow *)
55val overflow : [`All | `X | `Y] -> overflow -> t
56
57(** Set box sizing *)
58val box_sizing : box_sizing -> t
59
60(** Set object fit *)
61val object_fit : object_fit -> t
62
63(** Set object position *)
64val object_position : object_position -> t
65
66(** Set aspect ratio *)
67val aspect : [`Auto | `Square | `Video | `Ratio of int * int] -> t
68
69(** Convert to CSS class *)
70val to_class : t -> Css.t
71
72(** Accessibility utilities *)
73
74(** Screen reader only (visually hidden but accessible) *)
75val sr_only : Css.t
76
77(** Focus ring utility *)
78val focus_ring : ?color:Color.t -> ?width:Effects.border_width -> unit -> Css.t
79
80(** Common width utilities *)
81val w_full : Css.t
82val w_screen : Css.t
83val w_auto : Css.t
84val w_fit : Css.t
85
86(** Common height utilities *)
87val h_full : Css.t
88val h_screen : Css.t
89val h_auto : Css.t
90val h_fit : Css.t