1
2
3
4
5
6
7
8
9
10
11
12
13
14
module Graphics.Layout where
import Graphics.Layout.Box
import Graphics.Layout.Grid
data LayoutItem n x =
LayoutFlow x (PaddedBox n) [LayoutItem n x]
| LayoutGrid x (Grid n) [(GridItem n, LayoutItem n x)]
-- 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]-}