~alcinnz/CatTrap

ref: 09970dfcfc40c806e18836659ab4b3a3fa3784ce CatTrap/Graphics/Layout/CSS.hs -rw-r--r-- 464 bytes
09970dfc — Adrian Cochrane Draft public API for CatTrap. 1 year, 4 months ago
                                                                                
09970dfc Adrian Cochrane
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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