@@ -628,15 +628,15 @@ blockToMarkdown' opts t@(Table caption aligns widths headers rows) = do
628 writerColumns opts >= 8 * numcols -> (id,) <$>
628 writerColumns opts >= 8 * numcols -> (id,) <$>
629 gridTable opts blockListToMarkdown
629 gridTable opts blockListToMarkdown
630 (all null headers) aligns' widths' headers rows
630 (all null headers) aligns' widths' headers rows
631− | isEnabled Ext_raw_html opts -> fmap (id,) $
632− (text . T.unpack) <$>
633− (writeHtml5String opts{ writerTemplate = Nothing } $ Pandoc nullMeta [t])
634 | hasSimpleCells &&
631 | hasSimpleCells &&
635 isEnabled Ext_pipe_tables opts -> do
632 isEnabled Ext_pipe_tables opts -> do
636 rawHeaders <- padRow <$> mapM (blockListToMarkdown opts) headers
633 rawHeaders <- padRow <$> mapM (blockListToMarkdown opts) headers
637 rawRows <- mapM (fmap padRow . mapM (blockListToMarkdown opts))
634 rawRows <- mapM (fmap padRow . mapM (blockListToMarkdown opts))
639 (id,) <$> pipeTable (all null headers) aligns' rawHeaders rawRows
636 (id,) <$> pipeTable (all null headers) aligns' rawHeaders rawRows
637+ | isEnabled Ext_raw_html opts -> fmap (id,) $
638+ (text . T.unpack) <$>
639+ (writeHtml5String opts{ writerTemplate = Nothing } $ Pandoc nullMeta [t])
640 | otherwise -> return $ (id, text "[TABLE]")
640 | otherwise -> return $ (id, text "[TABLE]")
641 return $ nst (tbl $$ caption'') $$ blankline
641 return $ nst (tbl $$ caption'') $$ blankline
642blockToMarkdown' opts (BulletList items) = do
642blockToMarkdown' opts (BulletList items) = do