@@ -1088,13 +1088,19 @@ rawTeXBlock = do
10881088rawHtmlBlocks :: PandocMonad m => MarkdownParser m (F Blocks)
10891089rawHtmlBlocks = do
10901090 (TagOpen tagtype _, raw) <- htmlTag isBlockTag
1091+ -- we don't want '<td> text' to be a code block:
1092+ skipMany spaceChar
1093+ indentlevel <- (blankline >> length <$> many (char ' ')) <|> return 0
10911094 -- try to find closing tag
10921095 -- we set stateInHtmlBlock so that closing tags that can be either block or
10931096 -- inline will not be parsed as inline tags
10941097 oldInHtmlBlock <- stateInHtmlBlock <$> getState
10951098 updateState $ \st -> st{ stateInHtmlBlock = Just tagtype }
10961099 let closer = htmlTag (\x -> x ~== TagClose tagtype)
1097− contents <- mconcat <$> many (notFollowedBy' closer >> block)
1100+ let block' = do notFollowedBy' closer
1101+ atMostSpaces indentlevel
1102+ block
1103+ contents <- mconcat <$> many block'
10981104 result <-
10991105 (closer >>= \(_, rawcloser) -> return (
11001106 return (B.rawBlock "html" $ stripMarkdownAttribute raw) <>