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