diff options
| author | Asliddinbek Azizovich <[email protected]> | 2025-11-30 17:45:36 +0500 |
|---|---|---|
| committer | GitHub <[email protected]> | 2025-11-30 13:45:36 +0100 |
| commit | 094061d946f12961b9af0b400befbb798f980be7 (patch) | |
| tree | ddb7f89ca31c93fb7a9546c5fce3f1779ad573c4 /src | |
| parent | 1dcb984453a61cb37d091df7a0fba404207327d3 (diff) | |
Add reveal.js scroll view option to HTML writer (#11305)
* Add revealjs `scroll` view option to HTML writer
* Add `scrollSnap` option into default.revealjs
Closes #10052
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 95aa1ac24..cdfe89879 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -432,7 +432,11 @@ pandocToHtml opts (Pandoc meta blocks) = do defField "transitionSpeed" ("default" :: Doc Text) . defField "backgroundTransition" ("fade" :: Doc Text) . defField "viewDistance" ("3" :: Doc Text) . - defField "mobileViewDistance" ("2" :: Doc Text) + defField "mobileViewDistance" ("2" :: Doc Text) . + defField "scrollProgress" True . + defField "scrollActivationWidth" ("0" :: Doc Text) . + defField "scrollSnap" ("mandatory" :: Doc Text) . + defField "scrollLayout" ("full" :: Doc Text) else id) . defField "document-css" (isNothing mCss && slideVariant == NoSlides) . defField "quotes" (stQuotes st) . |