From 4489283b03fecce31c49f37809932cebb8b72d46 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 5 Dec 2019 09:17:28 -0800
Subject: [PATCH] Fix makeSections so it doesn't turn column divs into
sections.
---
src/Text/Pandoc/Shared.hs | 4 +++-
test/command/make-section-column-divs.md | 28 ++++++++++++++++++++++++
2 files changed, 31 insertions(+), 1 deletion(-)
create mode 100644 test/command/make-section-column-divs.md
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
diff --git a/test/command/make-section-column-divs.md b/test/command/make-section-column-divs.md
new file mode 100644
index 000000000..0e8548233
--- /dev/null
+++ b/test/command/make-section-column-divs.md
@@ -0,0 +1,28 @@
+For reference see
+https://groups.google.com/d/msgid/pandoc-discuss/cef24253-7731-417c-a1ee-48153c4344bf%40googlegroups.com
+
+```
+% pandoc
+::: columns
+::: column
+# A
+
+a
+:::
+::: column
+# B
+
+b
+:::
+:::
+^D
+<div class="columns">
+<div class="column">
+<h1 id="a">A</h1>
+<p>a</p>
+</div><div class="column">
+<h1 id="b">B</h1>
+<p>b</p>
+</div>
+</div>
+```