Text.Layout.Table.Justify

Produce justified text, which is spread over multiple rows, and join it with other columns. For a simple cut, chunksOf from the split package is best suited.

Documentation

justifyTextsAsGrid :: [(Int, String)] -> [[String]]

Justifies texts and presents the resulting lines in a grid structure (each text in one column).

justifyWordListsAsGrid :: [(Int, [String])] -> [[String]]

Justifies lists of words and presents the resulting lines in a grid structure (each list of words in one column). This is useful if you don't want to split just at whitespaces.

justifyText :: Int -> String -> [String]

Uses words to split the text into words and justifies it with justify.

>>> justifyText 10 "This text will not fit on one line."
["This  text","will   not","fit on one","line."]

justify :: Int -> [String] -> [String]

Fits as many words on a line, depending on the given width. Every line, but the last one, gets equally filled with spaces between the words, as far as possible.

dimorphicSummands :: Int -> Int -> [Int]

Splits a given number into summands of 2 different values, where the first one is exactly one bigger than the second one. Splitting 40 spaces into 9 almost equal parts would result in:

>>> dimorphicSummands 40 9
[5,5,5,5,4,4,4,4,4]

dimorphicSummandsBy :: (Int -> a) -> Int -> Int -> [a]

Vertical alignment of whole columns

columnsAsGrid :: Position V -> [[[a]]] -> [[[a]]]

Merges multiple columns together and merges them to a valid grid without holes. The following example clarifies this:

>>> columnsAsGrid top [justifyText 10 "This text will not fit on one line.", ["42", "23"]]
[["This  text","42"],["will   not","23"],["fit on one",""],["line.",""]]

vpadCols :: Position V -> a -> [[a]] -> [[a]]

Fill all sublists to the same length.