table-layout: Layout text as grid or table.

This is a package candidate release! Here you can preview how this package release will appear once published to the main package index (which can be accomplished via the 'maintain' link below). Please note that once a package has been published to the main package index it cannot be undone! Please consult the package uploading documentation for more information.

[maintain] [Publish]

`table-layout` is a library for text-based table layout. It provides several functions and types which help in this task from the ground up. Although, using all of them is not necessary. It provides the following layout features:

A small tutorial is provided in the file.

[Skip to Readme]


Change log None available
Dependencies base (>=4.8 && <4.13), data-default-class (>=0.1.1 && <0.2), data-default-instances-base (>=0.1 && <0.2) [details]
License BSD-3-Clause
Author Moritz Bruder
Category Text
Home page
Source repo head: git clone git://
Uploaded by muesli4 at 2019-09-13T22:56:55Z


[Index] [Quick Jump]


Maintainer's Corner

Package maintainers

For package maintainers and hackage trustees

Readme for table-layout-

[back to package description]

table-layout Hackage version

This package can be used to render character-based table layouts which should be displayed with monospace fonts.


The focus of this library lies on rendering cells with different styles per column:

Those specifications are then applied to a list of rows (currently only String is supported).

Typically cells are rendered as a grid, but it is also possible to render tables with simulated lines, including styling support. Such tables can use optional headers and multiple lines per cell. Multi-line content can be aligned vertically, with respect to the other horizontally adjacent cells, and text can be rendered justified.


Grid layout

Render some text rows as grid:

> putStrLn $ gridString [column expand left def def, column expand right def def]
                        [ ["top left", "top right"]
                        , ["bottom left", "bottom right"]

gridString will join cells with a whitespace and rows with a newline character. The result is not spectacular but does look as expected:

top left       top right
bottom left bottom right

There are sensible default values for all column specification types, even for columns. We could have used just def for the first column.

Number columns

Additionally some common types are provided. A particularly useful one is numCol:

> import Numeric
> let toRow d = [showFFloat Nothing d ""]
> mapM_ putStrLn $ gridLines [numCol] $ toRow <$> [1.2, 100.5, 0.037, 5000.00001]

This will display the given numbers as a dot-aligned single column:


Improving readability of grids

Big grids are usually not that readable. To improve their readability, two functions are provided:

A good way to use this would be the ansi-terminal package, provided you are using a terminal to output your text.

Table layout

For more complex data grids do not offer as much visibility. Sometimes we want to explicitly display a table, e.g., as output in a database application. tableLines and tableString are used to create a table.

putStrLn $ tableString [def , numCol]
                       [ rowG ["Jack", "184.74"]
                       , rowG ["Jane", "162.2"]

A row group is a group of rows which form one cell. This means that each line of a group is not visually seperated from the other ones. In addition we specify the style and an optional header. By default the header is not visible. This will yield the following result:

│ Jack │ 184.74 │
│ Jane │ 162.2  │

Table headers

Optionally we can use table headers. titlesH will center titles, whereas fullH allows more control:

putStrLn $ tableString [fixedLeftCol 10, column (fixed 10) center dotAlign def]
                       (titlesH ["Text", "Number"])
                       [ rowG ["A very long text", "0.42000000"]
                       , rowG ["Short text", "100200.5"]

Headers are always displayed with a different style than the other columns (centered by default). A maximum column width is respected, otherwise a header may acquire additional space.

│    Text    │   Number   │
│ A very lo… │   0.42000… │
│ Short text │ …00.5      │

Vertical positioning and justified text

Because a row group consists of multiple lines, we may also want to align the content of cells vertically, especially when we don't know how many lines there will be. The following piece of code will display a left-justified text alongside the length of the text:

let txt = "Lorem ipsum ..." 
in putStrLn $ tableString [fixedLeftCol 50, numCol]
                          (titlesH ["Text", "Length"])
                          [ colsAllG center [ justifyText 50 txt
                                            , [show $ length txt]

colsAllG will merge the given columns into a row group with the given positioning:

|                        Text                        | Length |
| Lorem  ipsum dolor sit amet, consectetur adipisici |        |
| elit,  sed eiusmod  tempor incidunt  ut labore  et |        |
| dolore magna aliqua. Ut enim ad minim veniam, quis |        |
| nostrud   exercitation  ullamco  laboris  nisi  ut |        |
| aliquid  ex ea  commodi consequat.  Quis aute iure |    429 |
| reprehenderit   in  voluptate  velit  esse  cillum |        |
| dolore  eu fugiat  nulla pariatur.  Excepteur sint |        |
| obcaecat cupiditat non proident, sunt in culpa qui |        |
| officia deserunt mollit anim id est laborum.       |        |

Additionally, the positioning can be specified for each column with colsG. For grids colsAsRows and colsAsRowsAll are provided.

Get in contact

Please report issues and suggestions to the GitHub page. I'm always open for feedback (good and bad).