Tailwind classes in OCaml
anil.recoil.org
1type t =
2 | Block
3 | Inline_block
4 | Inline
5 | Flex
6 | Inline_flex
7 | Grid
8 | Inline_grid
9 | Table
10 | Inline_table
11 | Table_cell
12 | Table_row
13 | Contents
14 | List_item
15 | Hidden
16 | None
17
18let display_to_string = function
19 | Block -> "block"
20 | Inline_block -> "inline-block"
21 | Inline -> "inline"
22 | Flex -> "flex"
23 | Inline_flex -> "inline-flex"
24 | Grid -> "grid"
25 | Inline_grid -> "inline-grid"
26 | Table -> "table"
27 | Inline_table -> "inline-table"
28 | Table_cell -> "table-cell"
29 | Table_row -> "table-row"
30 | Contents -> "contents"
31 | List_item -> "list-item"
32 | Hidden -> "hidden"
33 | None -> "none"
34
35let to_class t = Css.make (display_to_string t)
36
37let block = to_class Block
38let inline_block = to_class Inline_block
39let inline = to_class Inline
40let flex = to_class Flex
41let inline_flex = to_class Inline_flex
42let grid = to_class Grid
43let inline_grid = to_class Inline_grid
44let hidden = to_class Hidden
45let none = to_class None