52a57a5 · typeable/pandoc

git.iko.soy/typeable/pandoc

LaTeX writer: don't emit `[<+->]` unless beamer output,

even if `writerIncremental` is True. See #5072.

commit52a57a53622d55096fa6e4407a98e32a3612ba6e authorJohn MacFarlane <jgm@berkeley.edu> dateMon 12 Nov 2018, 09:33 (8 years ago) parent5bc38a7

2 files changed+17−2

unifiedsplit

src/Text/Pandoc/Writers/LaTeX.hs+3−2

@@ -709,7 +709,7 @@ blockToLaTeX (BulletList lst) = do

709709blockToLaTeX (OrderedList _ []) = return empty -- otherwise latex error

710710blockToLaTeX (OrderedList (start, numstyle, numdelim) lst) = do

711711 st <- get

712− let inc = if stIncremental st then "[<+->]" else ""

712+ let inc = if stBeamer st && stIncremental st then "[<+->]" else ""

713713 let oldlevel = stOLLevel st

714714 put $ st {stOLLevel = oldlevel + 1}

715715 items <- mapM listItemToLaTeX lst

@@ -759,7 +759,8 @@ blockToLaTeX (OrderedList (start, numstyle, numdelim) lst) = do

759759blockToLaTeX (DefinitionList []) = return empty

760760blockToLaTeX (DefinitionList lst) = do

761761 incremental <- gets stIncremental

762− let inc = if incremental then "[<+->]" else ""

762+ beamer <- gets stBeamer

763+ let inc = if beamer && incremental then "[<+->]" else ""

763764 items <- mapM defListItemToLaTeX lst

764765 let spacing = if all isTightList (map snd lst)

765766 then text "\\tightlist"

test/command/5072.mdnew file+14

@@ -0,0 +1,14 @@

1+```

2+% pandoc -t latex -i

3+1. one

4+2. two

5+^D

6+\begin{enumerate}

7+\def\labelenumi{\arabic{enumi}.}

8+\tightlist

9+\item

10+ one

11+\item

12+ two

13+\end{enumerate}

14+```