Markdown reader: Improved pipe table relative widths.

Previously pipe table columns got relative widths (based
on the header underscore lines) when the source of one of the rows was
greater in width than the column width.  This gave bad results in some
cases where much of the width of the row was due to nonprinting
material (e.g. link URLs).  Now pandoc only looks at printable
width (the width of a plain string version of the source), which
should give better results.

Thanks to John Muccigrosso for bringing up the issue.

1 files changed, 4 insertions, 4 deletions

diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index 64cd817ba..2d222176c 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -1341,10 +1341,10 @@ pipeTable :: MarkdownParser ([Alignment], [Double], F [Blocks], F [[Blocks]])
 pipeTable = try $ do
   nonindentSpaces
   lookAhead nonspaceChar
-  ((heads, rawHead),(aligns, seplengths)) <- (,) <$>
-                                        withRaw pipeTableRow <*> pipeBreak
-  (lines', rawRows) <- unzip <$> many (withRaw pipeTableRow)
-  let maxlength = maximum $ map length (rawHead : rawRows)
+  (heads,(aligns, seplengths)) <- (,) <$> pipeTableRow <*> pipeBreak
+  lines' <- many pipeTableRow
+  let maxlength = maximum $
+       map (\x -> length . stringify $ runF x def) (heads : lines')
   numColumns <- getOption readerColumns
   let widths = if maxlength > numColumns
                   then map (\len ->