Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Man writer: use one decimal place for column widths.

Browse source 
This, I hope, will fix test failures on GHC 7.6 due to
(presumably) different rounding or floating point multiplication.
This commit is contained in:
John MacFarlane 2013-04-09 19:56:43 -07:00
parent df1522e1eb
commit da13ad89ce
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Writers/Man.hs
View file

@ -187,7 +187,7 @@ blockToMan opts (Table caption alignments widths headers rows) =
modify $ \st -> st{ stHasTables = True }
let iwidths = if all (== 0) widths
then repeat ""
else map (printf "w(%0.2fn)" . (70 *)) widths
else map (printf "w(%0.1fn)" . (70 *)) widths
-- 78n default width - 8n indent = 70n
let coldescriptions = text $ intercalate " "
(zipWith (\align width -> aligncode align ++ width)

6
tests/tables.man
View file

@ -138,7 +138,7 @@ Multiline table with caption:
Here\[aq]s the caption. It may span multiple lines.
.TS
tab(@);
cw(10.50n) lw(9.63n) rw(11.38n) lw(23.63n).
cw(10.5n) lw(9.6n) rw(11.4n) lw(23.6n).
T{
Centered Header
T}@T{
@ -174,7 +174,7 @@ Multiline table without caption:
.PP
.TS
tab(@);
cw(10.50n) lw(9.63n) rw(11.38n) lw(23.63n).
cw(10.5n) lw(9.6n) rw(11.4n) lw(23.6n).
T{
Centered Header
T}@T{
@ -244,7 +244,7 @@ Multiline table without column headers:
.PP
.TS
tab(@);
cw(10.50n) lw(9.63n) rw(11.38n) lw(23.63n).
cw(10.5n) lw(9.6n) rw(11.4n) lw(23.6n).
T{
First
T}@T{