diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2013-03-21 15:46:47 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2013-03-21 15:46:47 -0700 |
| commit | 2ec59935de08912315c345aa4a8957362afcd784 (patch) | |
| tree | 29e13171b6184ec86a5a993f90f8cd2078d3c1a1 | |
| parent | 5b424f881d271c3ef2d40bcf8b0b50b1cd367b98 (diff) | |
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.
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 6 |
1 files changed, 4 insertions, 2 deletions
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 |