29 lines
826 B
Haskell
29 lines
826 B
Haskell
|
{- text based table generation
|
||
|
|
-
|
||
|
|
- Copyright 2014 Joey Hess <joey@kitenet.net>
|
||
|
|
-
|
||
|
|
- License: BSD-2-clause
|
||
|
|
-}
|
||
|
|
|
||
|
|
module Utility.Table where
|
||
|
|
|
||
|
|
type Table = [[String]]
|
||
|
|
|
||
|
|
-- | A table with a header that is set off with lines under each
|
||
|
|
-- header item.
|
||
|
|
tableWithHeader :: [String] -> [[String]] -> Table
|
||
|
|
tableWithHeader header rows = header : map linesep header : rows
|
||
|
|
where
|
||
|
|
linesep = map (const '-')
|
||
|
|
|
||
|
|
-- | Formats a table to lines, automatically padding rows to the same size.
|
||
|
|
formatTable :: Table -> [String]
|
||
|
|
formatTable table = map (\r -> unwords (map pad (zip r rowsizes))) table
|
||
|
|
where
|
||
|
|
pad (cell, size) = cell ++ take (size - length cell) padding
|
||
|
|
padding = repeat ' '
|
||
|
|
rowsizes = sumrows (map (map length) table)
|
||
|
|
sumrows [] = repeat 0
|
||
|
|
sumrows [r] = r
|
||
|
|
sumrows (r1:r2:rs) = sumrows $ map (uncurry max) (zip r1 r2) : rs
|