From 4489283b03fecce31c49f37809932cebb8b72d46 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 5 Dec 2019 09:17:28 -0800 Subject: Fix makeSections so it doesn't turn column divs into sections. --- src/Text/Pandoc/Shared.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index 926116e23..efb2e56dd 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -586,7 +586,9 @@ makeSections numbering mbBaseLevel bs = (Header level (ident,classes,kvs) title':ys) : xs) | all (\case Header level' _ _ -> level' > level - _ -> True) ys = do + _ -> True) ys + , "column" `notElem` dclasses + , "columns" `notElem` dclasses = do inner <- go (Header level (ident,classes,kvs) title':ys) let inner' = case inner of -- cgit v1.2.3