diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2019-05-05 07:26:18 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-05-05 07:26:18 -0700 |
| commit | 548ffa38c3b7850334f80d037521bd30ee171eee (patch) | |
| tree | c6202151f80b9ae178bba6d071d30230934b6dab /src/Text/Pandoc/Writers | |
| parent | 33e2d46dbea6ca216b44d2f5d6cf3b74899caef6 (diff) | |
| download | pandoc-548ffa38c3b7850334f80d037521bd30ee171eee.tar.gz | |
LaTeX writer: don't produce columns environment unless beamer.
The environment is beamer-only and as far as I'm
aware there's no latex package that provides it
for non-beamer use.
Closes #5485.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index 52e6ba351..e0cdd2054 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -560,13 +560,13 @@ blockToLaTeX (Div (identifier,classes,kvs) bs) _ -> linkAnchor' let align dir txt = inCmd "begin" dir $$ txt $$ inCmd "end" dir lang <- toLang $ lookup "lang" kvs - let wrapColumns = if "columns" `elem` classes + let wrapColumns = if beamer && "columns" `elem` classes then \contents -> inCmd "begin" "columns" <> brackets "T" $$ contents $$ inCmd "end" "columns" else id - wrapColumn = if "column" `elem` classes + wrapColumn = if beamer && "column" `elem` classes then \contents -> let w = maybe "0.48" fromPct (lookup "width" kvs) in inCmd "begin" "column" <> |