diff options
| author | Mauro Bieg <mb21@users.noreply.github.com> | 2020-09-20 01:13:50 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-09-19 16:13:50 -0700 |
| commit | caa225ad8216d704afe1b857f552307e490c1a14 (patch) | |
| tree | d26c96108d7223c086a7bb194020f5540319608e /src/Text/Pandoc/Writers/HTML.hs | |
| parent | d5a7abd47f0862c51bc7ce8349e4290ad1c24546 (diff) | |
| download | pandoc-caa225ad8216d704afe1b857f552307e490c1a14.tar.gz | |
Add CSS to default HTML template (#6601)
Diffstat (limited to 'src/Text/Pandoc/Writers/HTML.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 8162da66a..b40765145 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -310,6 +310,7 @@ pandocToHtml opts (Pandoc meta blocks) = do "/*]]>*/\n") | otherwise -> mempty Nothing -> mempty + let mCss :: Maybe [Text] = lookupContext "css" $ metadata let context = (if stHighlighting st then case writerHighlightStyle opts of Just sty -> defField "highlighting-css" @@ -328,6 +329,7 @@ pandocToHtml opts (Pandoc meta blocks) = do PlainMath -> defField "displaymath-css" True WebTeX _ -> defField "displaymath-css" True _ -> id) $ + defField "document-css" (isNothing mCss && slideVariant == NoSlides) $ defField "quotes" (stQuotes st) $ -- for backwards compatibility we populate toc -- with the contents of the toc, rather than a |