Music.Theory.Array.Text

Regular array data as plain text tables.

Documentation

type Text_Table = [[String]]

Tabular text.

table_split :: [Int] -> Text_Table -> [Text_Table]

Split table at indicated places.

let tbl = [["1","2","3","4"],["A","B","E","F"],["C","D","G","H"]]
table_split [2,2] tbl

table_concat :: [Text_Table] -> Text_Table

Join tables left to right.

table_concat [[["1","2"],["A","B"],["C","D"]],[["3","4"],["E","F"],["G","H"]]]

table_number_rows :: Int -> Text_Table -> Text_Table

Add a row number column at the front of the table.

table_number_rows 0 tbl

type Text_Table_Opt = (Bool, Bool, Bool, String, Bool)

(HEADER,PAD-LEFT,EQ-WIDTH,COL-SEP,TBL-DELIM).

Options are: has header pad text with space to left instead of right, make all columns equal width, column separator string, print table delimiters

table_opt_plain :: Text_Table_Opt

Options for plain layout.

table_opt_simple :: Text_Table_Opt

Options for simple layout.

table_opt_pipe :: Text_Table_Opt

Options for pipe layout.

table_pp :: Text_Table_Opt -> Text_Table -> [String]

Pretty-print table. Table is in row order.

let tbl = [["1","2","3","4"],["a","bc","def"],["ghij","klm","no","p"]]
putStrLn$unlines$"": table_pp (True,True,True," ",True) tbl
putStrLn$unlines$"": table_pp (False,False,True," ",False) tbl

table_pp_show :: Show t => Text_Table_Opt -> Table t -> [String]

Variant relying on Show instances.

table_pp_show table_opt_simple [[1..4],[5..8],[9..12]]

table_pp_column_order :: Text_Table_Opt -> Text_Table -> [String]

Variant in column order (ie. transpose).

table_pp_column_order table_opt_simple [["a","bc","def"],["ghij","klm","no"]]

table_matrix :: ([String], [String]) -> Text_Table -> Text_Table

Matrix form, ie. header in both first row and first column, in each case displaced by one location which is empty.

let h = (map return "abc",map return "efgh")
let t = table_matrix h (map (map show) [[1,2,3,4],[2,3,4,1],[3,4,1,2]])

>>> putStrLn $ unlines $ table_pp table_opt_simple t
- - - - -
  e f g h
a 1 2 3 4
b 2 3 4 1
c 3 4 1 2
- - - - -

table_matrix_opt :: (a -> String) -> (String -> String) -> ([a], [a]) -> Table a -> Text_Table

Variant that takes a show function and a header decoration function.

table_matrix_opt show id ([1,2,3],[4,5,6]) [[7,8,9],[10,11,12],[13,14,15]]