Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

LaTeX writer: don't produce columns environment unless beamer.

Browse source 
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.
This commit is contained in:
John MacFarlane 2019-05-05 07:26:18 -07:00
parent 33e2d46dbe
commit 548ffa38c3
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Writers/LaTeX.hs
View file

@ -560,13 +560,13 @@ blockToLaTeX (Div (identifier,classes,kvs) bs)
_ -> linkAnchor' _ -> linkAnchor'
let align dir txt = inCmd "begin" dir $$ txt $$ inCmd "end" dir let align dir txt = inCmd "begin" dir $$ txt $$ inCmd "end" dir
lang <- toLang $ lookup "lang" kvs lang <- toLang $ lookup "lang" kvs
let wrapColumns = if "columns" `elem` classes let wrapColumns = if beamer && "columns" `elem` classes
then \contents -> then \contents ->
inCmd "begin" "columns" <> brackets "T" inCmd "begin" "columns" <> brackets "T"
$$ contents $$ contents
$$ inCmd "end" "columns" $$ inCmd "end" "columns"
else id else id
wrapColumn = if "column" `elem` classes wrapColumn = if beamer && "column" `elem` classes
then \contents -> then \contents ->
let w = maybe "0.48" fromPct (lookup "width" kvs) let w = maybe "0.48" fromPct (lookup "width" kvs)
in inCmd "begin" "column" <> in inCmd "begin" "column" <>