1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
import Text.Tabular
import Text.Html (renderHtml, stringToHtml, (+++))
import qualified Text.Tabular.AsciiArt as A
import qualified Text.Tabular.SimpleText as S
import qualified Text.Tabular.Html as H
import qualified Text.Tabular.Latex as L
import qualified Text.Tabular.Csv as C
main =
do writeFile "sample1.txt" $ A.render id id id example2
writeFile "sample1.tab" $ S.render "\t" id id id example2
writeFile "sample1.html" $ renderHtml $
H.css H.defaultCss +++ H.render stringToHtml stringToHtml stringToHtml example2
writeFile "sample1T.tex" $ L.render id id id example2
writeFile "sample1.csv" $ C.render id id id example2
putStrLn $ "wrote sample1.txt, sample1.html and sample1T.tex"
putStrLn $ "(hint: pdflatex sample1)"
-- | an example table showing grouped columns and rows
sample1 = Table
(Group SingleLine
[ Group NoLine [Header "A 1", Header "A 2"]
, Group NoLine [Header "B 1", Header "B 2", Header "B 3"]
])
(Group DoubleLine
[ Group SingleLine [Header "memtest 1", Header "memtest 2"]
, Group SingleLine [Header "time test 1", Header "time test 2"]
])
[ ["hog", "terrible", "slow", "slower"]
, ["pig", "not bad", "fast", "slowest"]
, ["good", "awful" , "intolerable", "bearable"]
, ["better", "no chance", "crawling", "amazing"]
, ["meh", "well...", "worst ever", "ok"]
]
-- | the same example built a slightly different way
example2 =
empty ^..^ colH "memtest 1" ^|^ colH "memtest 2"
^||^ colH "time test" ^|^ colH "time test 2"
+.+ row "A 1" ["hog", "terrible", "slow", "slower"]
+.+ row "A 2" ["pig", "not bad", "fast", "slowest"]
+----+
row "B 1" ["good", "awful", "intolerable", "bearable"]
+.+ row "B 2" ["better", "no chance", "crawling", "amazing"]
+.+ row "B 3" ["meh", "well...", "worst ever", "ok"]
|
