type overflow =
  | Auto
  | Hidden
  | Clip
  | Visible
  | Scroll

type box_sizing =
  | Border_box
  | Content_box

type object_fit =
  | Contain
  | Cover
  | Fill
  | None
  | Scale_down

type object_position =
  | Bottom | Center | Left | Left_bottom | Left_top
  | Right | Right_bottom | Right_top | Top

type t = 
  | Width of Size.t
  | Height of Size.t
  | Min_width of Size.t
  | Max_width of Size.t
  | Min_height of Size.t
  | Max_height of Size.t
  | Overflow of [`All | `X | `Y] * overflow
  | Box_sizing of box_sizing
  | Object_fit of object_fit
  | Object_position of object_position
  | Aspect of [`Auto | `Square | `Video | `Ratio of int * int]

let to_class = function
  | Width size -> Css.make (Printf.sprintf "w-%s" (Size.to_string size))
  | Height size -> Css.make (Printf.sprintf "h-%s" (Size.to_string size))
  | Min_width size -> Css.make (Printf.sprintf "min-w-%s" (Size.to_string size))
  | Max_width size -> Css.make (Printf.sprintf "max-w-%s" (Size.to_string size))
  | Min_height size -> Css.make (Printf.sprintf "min-h-%s" (Size.to_string size))
  | Max_height size -> Css.make (Printf.sprintf "max-h-%s" (Size.to_string size))
  | Overflow (`All, Auto) -> Css.make "overflow-auto"
  | Overflow (`All, Hidden) -> Css.make "overflow-hidden"
  | Overflow (`All, Clip) -> Css.make "overflow-clip"
  | Overflow (`All, Visible) -> Css.make "overflow-visible"
  | Overflow (`All, Scroll) -> Css.make "overflow-scroll"
  | Overflow (`X, Auto) -> Css.make "overflow-x-auto"
  | Overflow (`X, Hidden) -> Css.make "overflow-x-hidden"
  | Overflow (`X, Clip) -> Css.make "overflow-x-clip"
  | Overflow (`X, Visible) -> Css.make "overflow-x-visible"
  | Overflow (`X, Scroll) -> Css.make "overflow-x-scroll"
  | Overflow (`Y, Auto) -> Css.make "overflow-y-auto"
  | Overflow (`Y, Hidden) -> Css.make "overflow-y-hidden"
  | Overflow (`Y, Clip) -> Css.make "overflow-y-clip"
  | Overflow (`Y, Visible) -> Css.make "overflow-y-visible"
  | Overflow (`Y, Scroll) -> Css.make "overflow-y-scroll"
  | Box_sizing Border_box -> Css.make "box-border"
  | Box_sizing Content_box -> Css.make "box-content"
  | Object_fit Contain -> Css.make "object-contain"
  | Object_fit Cover -> Css.make "object-cover"
  | Object_fit Fill -> Css.make "object-fill"
  | Object_fit None -> Css.make "object-none"
  | Object_fit Scale_down -> Css.make "object-scale-down"
  | Object_position Bottom -> Css.make "object-bottom"
  | Object_position Center -> Css.make "object-center"
  | Object_position Left -> Css.make "object-left"
  | Object_position Left_bottom -> Css.make "object-left-bottom"
  | Object_position Left_top -> Css.make "object-left-top"
  | Object_position Right -> Css.make "object-right"
  | Object_position Right_bottom -> Css.make "object-right-bottom"
  | Object_position Right_top -> Css.make "object-right-top"
  | Object_position Top -> Css.make "object-top"
  | Aspect `Auto -> Css.make "aspect-auto"
  | Aspect `Square -> Css.make "aspect-square"
  | Aspect `Video -> Css.make "aspect-video"
  | Aspect (`Ratio (w, h)) -> Css.make (Printf.sprintf "aspect-[%d/%d]" w h)

let width size = Width size
let height size = Height size
let min_width size = Min_width size
let max_width size = Max_width size
let min_height size = Min_height size
let max_height size = Max_height size
let overflow dir overflow = Overflow (dir, overflow)
let box_sizing bs = Box_sizing bs
let object_fit of_ = Object_fit of_
let object_position op = Object_position op
let aspect a = Aspect a

let w_full = Css.make "w-full"
let w_screen = Css.make "w-screen"
let w_auto = Css.make "w-auto"
let w_fit = Css.make "w-fit"

let h_full = Css.make "h-full"
let h_screen = Css.make "h-screen"
let h_auto = Css.make "h-auto"
let h_fit = Css.make "h-fit"