module Graphics.Layout where import Graphics.Layout.Box import Graphics.Layout.Grid data LayoutItem n x = LayoutFlow x (PaddedBox n) [LayoutItem n] | LayoutGrid x (Grid n) [(GridItem n, LayoutItem n)] -- More to come... sizeBound :: LayoutItem Length () -> LayoutItem Length () size :: PaddedBox Double -> LayoutItem Length () -> LayoutItem Double () position :: LayoutItem Double -> LayoutItem Double Size layout :: PaddedBox Double -> LayoutItem Length () -> Bool -> [LayoutItem Double Size]