module Text.Layout.Table.Internal where
import Text.Layout.Table.Position
import Text.Layout.Table.Primitives.Basic
data ColSpec = ColSpec
{ lenSpec :: LenSpec
, position :: Position H
, alignSpec :: AlignSpec
, cutMarkSpec :: CutMarkSpec
}
data LenSpec = Expand | Fixed Int | ExpandUntil Int | FixedUntil Int
data AlignSpec = AlignPred OccSpec | NoAlign
data OccSpec = OccSpec (Char -> Bool) Int
data RowGroup = RowGroup
{ rows :: [[String]]
}
data HeaderColSpec = HeaderColSpec (Position H) (Maybe CutMarkSpec)