From 2ec59935de08912315c345aa4a8957362afcd784 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 21 Mar 2013 15:46:47 -0700 Subject: reveal_js: nested vertical stacks used for hierarchical structure. Variant of a patch from jamiefolson. Results for more than one level of nesting may be odd. Perhaps this needs revising. --- src/Text/Pandoc/Writers/HTML.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index b480f4eec..8957e709f 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -310,8 +310,10 @@ elementToHtml slideLevel opts (Sec level num (id',classes,keyvals) title' elemen else H.div let attr = (id',classes',keyvals) return $ if titleSlide - then mconcat $ - (addAttrs opts attr $ secttag $ header') : innerContents + then (if writerSlideVariant opts == RevealJsSlides + then H5.section + else id) $ mconcat $ + (addAttrs opts attr $ secttag $ header') : innerContents else if writerSectionDivs opts || slide then addAttrs opts attr $ secttag $ inNl $ header' : innerContents -- cgit v1.2.3