type t = [ `Block
         | `Inline_block
         | `Inline
         | `Flex
         | `Inline_flex
         | `Grid
         | `Inline_grid
         | `Table
         | `Inline_table
         | `Table_cell
         | `Table_row
         | `Contents
         | `List_item
         | `Hidden
         | `None ]

let display_to_string = function
  | `Block -> "block"
  | `Inline_block -> "inline-block"
  | `Inline -> "inline"
  | `Flex -> "flex"
  | `Inline_flex -> "inline-flex"
  | `Grid -> "grid"
  | `Inline_grid -> "inline-grid"
  | `Table -> "table"
  | `Inline_table -> "inline-table"
  | `Table_cell -> "table-cell"
  | `Table_row -> "table-row"
  | `Contents -> "contents"
  | `List_item -> "list-item"
  | `Hidden -> "hidden"
  | `None -> "none"

let to_class t = Css.make (display_to_string t)

let block = to_class `Block
let inline_block = to_class `Inline_block
let inline = to_class `Inline
let flex = to_class `Flex
let inline_flex = to_class `Inline_flex
let grid = to_class `Grid
let inline_grid = to_class `Inline_grid
let hidden = to_class `Hidden
let none = to_class `None