aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2019-12-05 09:17:28 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2019-12-05 09:17:28 -0800
commit4489283b03fecce31c49f37809932cebb8b72d46 (patch)
tree7987ebbb4d3de6ed48b3cdb68256b274eba5c9d8 /src
parent28a2a6e5345f2dc51632bdd3ca2b063cc08d896d (diff)
downloadpandoc-4489283b03fecce31c49f37809932cebb8b72d46.tar.gz
Fix makeSections so it doesn't turn column divs into sections.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Shared.hs4
1 files changed, 3 insertions, 1 deletions
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