module TBL (converter) where

import Prelude hiding (length, replicate)
import Utilities
import Converter

-- TBL... yeah...
tblify :: Table -> String
tblify table = intercalate "\n" [tblstart, header, body, tblend]
    where
        columns = length $ head table
        tblstart = ".TS"
        tblend = ".TE"
        header = heading 'c' ++ "\n" ++ heading 'l' ++ "."
        heading c = intersperse ' ' $ replicate (columns+1) c
        body = intercalate "\n" $ map (intercalate "\t") table

converter :: Converter
converter = Converter "TBL" tblify "T" "tbl"