@@ -317,10 +317,6 @@ pandocToHtml opts (Pandoc meta blocks) = do
317 | otherwise -> mempty
317 | otherwise -> mempty
318 Nothing -> mempty
318 Nothing -> mempty
319 let mCss :: Maybe [Text] = lookupContext "css" metadata
319 let mCss :: Maybe [Text] = lookupContext "css" metadata
324 let context = (if stHighlighting st
320 let context = (if stHighlighting st
325 then case writerHighlightStyle opts of
321 then case writerHighlightStyle opts of
326 Just sty -> defField "highlighting-css"
322 Just sty -> defField "highlighting-css"
@@ -351,43 +347,43 @@ pandocToHtml opts (Pandoc meta blocks) = do
351 (if slideVariant == RevealJsSlides
347 (if slideVariant == RevealJsSlides
352 then -- set boolean options explicitly, since
348 then -- set boolean options explicitly, since
353 -- template can't distinguish False/undefined
349 -- template can't distinguish False/undefined
354− defField "controls" true .
350+ defField "controls" True .
355− defField "controlsTutorial" true .
351+ defField "controlsTutorial" True .
356 defField "controlsLayout" ("bottom-right" :: Text) .
352 defField "controlsLayout" ("bottom-right" :: Text) .
357 defField "controlsBackArrows" ("faded" :: Text) .
353 defField "controlsBackArrows" ("faded" :: Text) .
358− defField "progress" true .
354+ defField "progress" True .
359− defField "slideNumber" false .
355+ defField "slideNumber" False .
360 defField "showSlideNumber" ("all" :: Text) .
356 defField "showSlideNumber" ("all" :: Text) .
361− defField "hashOneBasedIndex" false .
357+ defField "hashOneBasedIndex" False .
362− defField "hash" false .
358+ defField "hash" False .
363− defField "respondToHashChanges" true .
359+ defField "respondToHashChanges" True .
364− defField "history" false .
360+ defField "history" False .
365− defField "keyboard" true .
361+ defField "keyboard" True .
366− defField "overview" true .
362+ defField "overview" True .
367− defField "disableLayout" false .
363+ defField "disableLayout" False .
368− defField "center" true .
364+ defField "center" True .
369− defField "touch" true .
365+ defField "touch" True .
370− defField "loop" false .
366+ defField "loop" False .
371− defField "rtl" false .
367+ defField "rtl" False .
372 defField "navigationMode" ("default" :: Text) .
368 defField "navigationMode" ("default" :: Text) .
373− defField "shuffle" false .
369+ defField "shuffle" False .
374− defField "fragments" true .
370+ defField "fragments" True .
375− defField "fragmentInURL" true .
371+ defField "fragmentInURL" True .
376− defField "embedded" false .
372+ defField "embedded" False .
377− defField "help" true .
373+ defField "help" True .
378− defField "pause" true .
374+ defField "pause" True .
379− defField "showNotes" false .
375+ defField "showNotes" False .
380 defField "autoPlayMedia" ("null" :: Text) .
376 defField "autoPlayMedia" ("null" :: Text) .
381 defField "preloadIframes" ("null" :: Text) .
377 defField "preloadIframes" ("null" :: Text) .
382 defField "autoSlide" ("0" :: Text) .
378 defField "autoSlide" ("0" :: Text) .
383− defField "autoSlideStoppable" true .
379+ defField "autoSlideStoppable" True .
384 defField "autoSlideMethod" ("null" :: Text) .
380 defField "autoSlideMethod" ("null" :: Text) .
385 defField "defaultTiming" ("null" :: Text) .
381 defField "defaultTiming" ("null" :: Text) .
386− defField "mouseWheel" false .
382+ defField "mouseWheel" False .
387 defField "display" ("block" :: Text) .
383 defField "display" ("block" :: Text) .
388− defField "hideInactiveCursor" true .
384+ defField "hideInactiveCursor" True .
389 defField "hideCursorTime" ("5000" :: Text) .
385 defField "hideCursorTime" ("5000" :: Text) .
390− defField "previewLinks" false .
386+ defField "previewLinks" False .
391 defField "transition" ("slide" :: Text) .
387 defField "transition" ("slide" :: Text) .
392 defField "transitionSpeed" ("default" :: Text) .
388 defField "transitionSpeed" ("default" :: Text) .
393 defField "backgroundTransition" ("fade" :: Text) .
389 defField "backgroundTransition" ("fade" :: Text) .