diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-04-26 21:50:37 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2016-04-26 21:50:37 -0700 |
| commit | 1985164816e49386e256d53d2846c90dc4168fd5 (patch) | |
| tree | 82c41da9d7c0c796d5cf5ac7c2d9dd37ffb36f5e /src/Text/Pandoc | |
| parent | a0fae92847207493eff5a2d2a5ac3b483ed00087 (diff) | |
LaTeX writer: ignore --incremental unless -t beamer.
Closes #2843.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index 9526333c1..5b3283573 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -508,7 +508,8 @@ blockToLaTeX (RawBlock f x) blockToLaTeX (BulletList []) = return empty -- otherwise latex error blockToLaTeX (BulletList lst) = do incremental <- gets stIncremental - let inc = if incremental then "[<+->]" else "" + beamer <- writerBeamer `fmap` gets stOptions + let inc = if beamer && incremental then "[<+->]" else "" items <- mapM listItemToLaTeX lst let spacing = if isTightList lst then text "\\tightlist" |