From 3e6184763e67dd2f74c3578745c098090d349d80 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Sat, 7 Jul 2007 22:18:46 +0000 Subject: 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 --- src/Text/Pandoc/Writers/Man.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Text/Pandoc') 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) ++ "." -- cgit v1.2.3