From c335b6cbd8e73537f6482ffc127bb428f586602e Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sun, 2 Oct 2011 23:19:03 -0700
Subject: HTML slides: only add id to div/section if --section-divs selected.

---
 src/Text/Pandoc/Writers/HTML.hs | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 6bc911fbd..5550db105 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -237,15 +237,14 @@ elementToHtml opts (Sec level num id' title' elements) = do
   let stuff = header'' : innerContents
   let slide = writerSlideVariant opts /= NoSlides && level == 1
   let titleSlide = slide && null elements
-  let classes = [theclass "titleslide" | titleSlide] ++
-                [theclass "slide" | slide]
+  let attrs = [prefixedId opts id' | writerSectionDivs opts] ++
+              [theclass "titleslide" | titleSlide] ++
+              [theclass "slide" | slide]
   let inNl x = nl opts : intersperse (nl opts) x ++ [nl opts]
   return $ if writerSectionDivs opts || slide
               then if writerHtml5 opts
-                      then tag "section" ! (prefixedId opts id' : classes)
-                                << inNl stuff
-                      else thediv ! (prefixedId opts id' : classes)
-                                << inNl stuff
+                      then tag "section" ! attrs << inNl stuff
+                      else thediv ! attrs << inNl stuff
               else toHtmlFromList $ intersperse (nl opts) stuff
 
 -- | Convert list of Note blocks to a footnote <div>.
-- 
cgit v1.2.3