Tailwind classes in OCaml
anil.recoil.org
1(** Card component module *)
2
3(** Card configuration *)
4type t
5
6(** Card variants *)
7type variant =
8 | Default
9 | Outlined
10 | Elevated
11 | Flat
12
13(** Create a card *)
14val make :
15 ?variant:variant ->
16 ?header:Htmlit.El.html ->
17 ?footer:Htmlit.El.html ->
18 ?image:Htmlit.El.html ->
19 ?padding:bool ->
20 ?hoverable:bool ->
21 ?clickable:bool ->
22 ?classes:Tailwind.t ->
23 ?attributes:(string * string) list ->
24 children:Htmlit.El.html list ->
25 unit -> t
26
27(** Convert card to Htmlit element *)
28val to_html : t -> Htmlit.El.html
29
30(** Card header section *)
31val header :
32 ?classes:Tailwind.t ->
33 ?title:string ->
34 ?subtitle:string ->
35 ?actions:Htmlit.El.html ->
36 children:Htmlit.El.html list ->
37 unit -> Htmlit.El.html
38
39(** Card body section *)
40val body :
41 ?classes:Tailwind.t ->
42 children:Htmlit.El.html list ->
43 unit -> Htmlit.El.html
44
45(** Card footer section *)
46val footer :
47 ?classes:Tailwind.t ->
48 ?actions:Htmlit.El.html list ->
49 children:Htmlit.El.html list ->
50 unit -> Htmlit.El.html
51
52(** Card image section *)
53val image :
54 ?classes:Tailwind.t ->
55 ?alt:string ->
56 ?cover:bool ->
57 src:string ->
58 unit -> Htmlit.El.html
59
60(** Create a card grid *)
61val grid :
62 ?cols:[`Xs of int | `Sm of int | `Md of int | `Lg of int | `Xl of int] list ->
63 ?gap:Tailwind.Size.t ->
64 ?classes:Tailwind.t ->
65 cards:t list ->
66 unit -> Htmlit.El.html