139d418 · typeable/pandoc

git.iko.soy/typeable/pandoc

Markdown writer: use raw HTML for simple, pipe tables with linebreaks.

Markdown line breaks involve a newline, and simple and pipe tables can't contain one. Closes #2993.

commit139d418d4b1abe740cd889dbc3f5770fe97f2684 authorJohn MacFarlane <jgm@berkeley.edu> dateThu 23 Jun 2016, 10:00 (10 years ago) parent5fac826

1 file changed+5−1

unifiedsplit

src/Text/Pandoc/Writers/Markdown.hs+5−1

@@ -39,6 +39,7 @@ import Text.Pandoc.Writers.Shared

3939import Text.Pandoc.Options

4040import Text.Pandoc.Parsing hiding (blankline, blanklines, char, space)

4141import Data.Maybe (fromMaybe)

42+import Data.Monoid (Any(..))

4243import Data.List ( group, stripPrefix, find, intersperse, transpose, sortBy )

4344import Data.Char ( isSpace, isPunctuation, ord, chr )

4445import Data.Ord ( comparing )

@@ -436,7 +437,10 @@ blockToMarkdown opts t@(Table caption aligns widths headers rows) = do

436437 else blankline <> ": " <> caption' <> blankline

437438 rawHeaders <- mapM (blockListToMarkdown opts) headers

438439 rawRows <- mapM (mapM (blockListToMarkdown opts)) rows

439− let isSimple = all (==0) widths

440+ let isLineBreak LineBreak = Any True

441+ isLineBreak _ = Any False

442+ let isSimple = all (==0) widths &&

443+ not ( getAny (query isLineBreak (headers:rows)) )

440444 let isPlainBlock (Plain _) = True

441445 isPlainBlock _ = False

442446 let hasBlocks = not (all isPlainBlock $ concat . concat $ headers:rows)