type font_family = Sans | Serif | Mono
type font_size = Xs | Sm | Base | Lg | Xl | Xl2 | Xl3 | Xl4 | Xl5 | Xl6 | Xl7 | Xl8 | Xl9
type font_weight = Thin | Extralight | Light | Normal | Medium | Semibold | Bold | Extrabold | Black
type font_style = Italic | Not_italic
type letter_spacing = Tighter | Tight | Normal | Wide | Wider | Widest
type line_height = None | Tight | Snug | Normal | Relaxed | Loose | Rem of float
type text_align = Left | Center | Right | Justify | Start | End
type text_decoration = Underline | Overline | Line_through | No_underline
type text_transform = Uppercase | Lowercase | Capitalize | Normal_case

type t = 
  | Font_family of font_family
  | Font_size of font_size  
  | Font_weight of font_weight
  | Font_style of font_style
  | Letter_spacing of letter_spacing
  | Line_height of line_height
  | Text_align of text_align
  | Text_decoration of text_decoration
  | Text_transform of text_transform
  | Text_color of Color.t

let to_class = function
  | Font_family Sans -> Css.make "font-sans"
  | Font_family Serif -> Css.make "font-serif"
  | Font_family Mono -> Css.make "font-mono"
  | Font_size Xs -> Css.make "text-xs"
  | Font_size Sm -> Css.make "text-sm"
  | Font_size Base -> Css.make "text-base"
  | Font_size Lg -> Css.make "text-lg"
  | Font_size Xl -> Css.make "text-xl"
  | Font_size Xl2 -> Css.make "text-2xl"
  | Font_size Xl3 -> Css.make "text-3xl"
  | Font_size Xl4 -> Css.make "text-4xl"
  | Font_size Xl5 -> Css.make "text-5xl"
  | Font_size Xl6 -> Css.make "text-6xl"
  | Font_size Xl7 -> Css.make "text-7xl"
  | Font_size Xl8 -> Css.make "text-8xl"
  | Font_size Xl9 -> Css.make "text-9xl"
  | Font_weight Thin -> Css.make "font-thin"
  | Font_weight Extralight -> Css.make "font-extralight"
  | Font_weight Light -> Css.make "font-light"
  | Font_weight Normal -> Css.make "font-normal"
  | Font_weight Medium -> Css.make "font-medium"
  | Font_weight Semibold -> Css.make "font-semibold"
  | Font_weight Bold -> Css.make "font-bold"
  | Font_weight Extrabold -> Css.make "font-extrabold"
  | Font_weight Black -> Css.make "font-black"
  | Font_style Italic -> Css.make "italic"
  | Font_style Not_italic -> Css.make "not-italic"
  | Letter_spacing Tighter -> Css.make "tracking-tighter"
  | Letter_spacing Tight -> Css.make "tracking-tight"
  | Letter_spacing Normal -> Css.make "tracking-normal"
  | Letter_spacing Wide -> Css.make "tracking-wide"
  | Letter_spacing Wider -> Css.make "tracking-wider"
  | Letter_spacing Widest -> Css.make "tracking-widest"
  | Line_height None -> Css.make "leading-none"
  | Line_height Tight -> Css.make "leading-tight"
  | Line_height Snug -> Css.make "leading-snug"
  | Line_height Normal -> Css.make "leading-normal"
  | Line_height Relaxed -> Css.make "leading-relaxed"
  | Line_height Loose -> Css.make "leading-loose"
  | Line_height (Rem f) -> Css.make (Printf.sprintf "leading-[%.1frem]" f)
  | Text_align Left -> Css.make "text-left"
  | Text_align Center -> Css.make "text-center"
  | Text_align Right -> Css.make "text-right"
  | Text_align Justify -> Css.make "text-justify"
  | Text_align Start -> Css.make "text-start"
  | Text_align End -> Css.make "text-end"
  | Text_decoration Underline -> Css.make "underline"
  | Text_decoration Overline -> Css.make "overline"
  | Text_decoration Line_through -> Css.make "line-through"
  | Text_decoration No_underline -> Css.make "no-underline"
  | Text_transform Uppercase -> Css.make "uppercase"
  | Text_transform Lowercase -> Css.make "lowercase"
  | Text_transform Capitalize -> Css.make "capitalize"
  | Text_transform Normal_case -> Css.make "normal-case"
  | Text_color color -> Color.text color

let font_family ff = Font_family ff
let font_size fs = Font_size fs
let font_weight fw = Font_weight fw
let font_style fs = Font_style fs
let letter_spacing ls = Letter_spacing ls
let line_height lh = Line_height lh
let text_align ta = Text_align ta
let text_decoration td = Text_decoration td
let text_transform tt = Text_transform tt
let text_color c = Text_color c

let text_xs = Css.make "text-xs"
let text_sm = Css.make "text-sm"
let text_base = Css.make "text-base"
let text_lg = Css.make "text-lg"
let text_xl = Css.make "text-xl"
let font_bold = Css.make "font-bold"
let font_normal = Css.make "font-normal"
let italic = Css.make "italic"
let underline = Css.make "underline"
let uppercase = Css.make "uppercase"
let lowercase = Css.make "lowercase"
let capitalize = Css.make "capitalize"