From 5f0bd5222169129cc3474d0284a0f1ecb702a770 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 8 Feb 2020 09:38:07 -0800
Subject: reveal.js: ensure that pauses work even in title slides.

Closes #5819.
---
 src/Text/Pandoc/Writers/HTML.hs | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 0608701ed..a393df6d0 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -666,13 +666,15 @@ blockToHtml opts (Div (ident, "section":dclasses, dkvs)
   let inDiv zs = RawBlock (Format "html") ("<div class=\""
                        <> fragmentClass <> "\">") :
                    (zs ++ [RawBlock (Format "html") "</div>"])
+  let breakOnPauses zs = case splitBy isPause zs of
+                           []   -> []
+                           y:ys -> y ++ concatMap inDiv ys
   let (titleBlocks, innerSecs) =
         if titleSlide
            -- title slides have no content of their own
-           then break isSec xs
-           else case splitBy isPause xs of
-                     []     -> ([],[])
-                     (z:zs) -> ([],z ++ concatMap inDiv zs)
+           then let (as, bs) = break isSec xs
+                in  (breakOnPauses as, bs)
+           else ([], breakOnPauses xs)
   let secttag  = if html5
                     then H5.section
                     else H.div
-- 
cgit v1.2.3