lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-08-26 18:26:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

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
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Writers/Man.hs
+1 -1
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)
tests/tables.man
+3 -3
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{