From 188c444990f7ae70556f8bfc94b25c8dc7f77f98 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 25 Sep 2020 09:05:40 -0700 Subject: RST reader: apply `.. class::` directly to following Header. rather than creating a surrounding Div. Closes #6699. --- src/Text/Pandoc/Readers/RST.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs index 50947c1be..eeb3d1389 100644 --- a/src/Text/Pandoc/Readers/RST.hs +++ b/src/Text/Pandoc/Readers/RST.hs @@ -758,7 +758,12 @@ directive' = do children <- case body of "" -> block _ -> parseFromString' parseBlocks body' - return $ B.divWith attrs children + return $ + case B.toList children of + [Header lev attrs' ils] + | T.null body -> -- # see #6699 + B.headerWith (attrs' <> attrs) lev (B.fromList ils) + _ -> B.divWith attrs children other -> do pos <- getPosition logMessage $ SkippedContent (".. " <> other) pos -- cgit v1.2.3