module Graphics.Layout.CSS where import Graphics.Layout.Box import Graphics.Layout data CSSBox = CSSBox { boxSizing :: BoxSizing, cssBox :: PaddedBox (Double, String), -- Some units need to be resolved per font. calc()? -- Other layout-mode specific properties? -- Resolve font here so we can resolve those units? } data BoxSizing = BorderBox | ContentBox instance PropertyParser CSSBox where ... finalizeCSS :: CSSBox -> LayoutItem Length