aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-07-07 22:18:46 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-07-07 22:18:46 +0000
commit3e6184763e67dd2f74c3578745c098090d349d80 (patch)
tree8aed8ef666e45efdb3b8abc6c73d6eb1754822af /src/Text/Pandoc
parentf82b1f8eec25ff41388315b69627feae51af7da8 (diff)
downloadpandoc-3e6184763e67dd2f74c3578745c098090d349d80.tar.gz
Man writer: Use integral n measures instead of fractional i
measures. Calculate on basis of a 70 character line, since the default is 78 but the table will appear indented 8 spaces in standard man output. git-svn-id: https://pandoc.googlecode.com/svn/trunk@637 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/Man.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Man.hs b/src/Text/Pandoc/Writers/Man.hs
index 2c3fc00bd..d002a0a8f 100644
--- a/src/Text/Pandoc/Writers/Man.hs
+++ b/src/Text/Pandoc/Writers/Man.hs
@@ -161,7 +161,8 @@ blockToMan opts (Table caption alignments widths headers rows) =
in do
caption' <- inlineListToMan opts caption
modify (\(notes, preprocessors) -> (notes, "t":preprocessors))
- let iwidths = map (printf "w(%.2fi)" . (6.5 *)) widths -- 6.5i default width
+ let iwidths = map (printf "w(%0.2fn)" . (70 *)) widths
+ -- 78n default width - 8n indent = 70n
let coldescriptions = text $ joinWithSep " "
(zipWith (\align width -> aligncode align ++ width)
alignments iwidths) ++ "."