@@ -346,6 +346,7 @@ blockToLaTeX (CodeBlock (_,classes,keyvalAttr) str) = do
346 return (flush $ text h)
346 return (flush $ text h)
347blockToLaTeX (RawBlock "latex" x) = return $ text x
347blockToLaTeX (RawBlock "latex" x) = return $ text x
348blockToLaTeX (RawBlock _ _) = return empty
348blockToLaTeX (RawBlock _ _) = return empty
349+blockToLaTeX (BulletList []) = return empty -- otherwise latex error
349blockToLaTeX (BulletList lst) = do
350blockToLaTeX (BulletList lst) = do
350 incremental <- gets stIncremental
351 incremental <- gets stIncremental
351 let inc = if incremental then "[<+->]" else ""
352 let inc = if incremental then "[<+->]" else ""
@@ -355,6 +356,7 @@ blockToLaTeX (BulletList lst) = do
355 else empty
356 else empty
356 return $ text ("\\begin{itemize}" ++ inc) $$ spacing $$ vcat items $$
357 return $ text ("\\begin{itemize}" ++ inc) $$ spacing $$ vcat items $$
357 "\\end{itemize}"
358 "\\end{itemize}"
359+blockToLaTeX (OrderedList _ []) = return empty -- otherwise latex error
358blockToLaTeX (OrderedList (start, numstyle, numdelim) lst) = do
360blockToLaTeX (OrderedList (start, numstyle, numdelim) lst) = do
359 st <- get
361 st <- get
360 let inc = if stIncremental st then "[<+->]" else ""
362 let inc = if stIncremental st then "[<+->]" else ""
@@ -393,6 +395,7 @@ blockToLaTeX (OrderedList (start, numstyle, numdelim) lst) = do
393 $$ spacing
395 $$ spacing
394 $$ vcat items
396 $$ vcat items
395 $$ "\\end{enumerate}"
397 $$ "\\end{enumerate}"
398+blockToLaTeX (DefinitionList []) = return empty
396blockToLaTeX (DefinitionList lst) = do
399blockToLaTeX (DefinitionList lst) = do
397 incremental <- gets stIncremental
400 incremental <- gets stIncremental
398 let inc = if incremental then "[<+->]" else ""
401 let inc = if incremental then "[<+->]" else ""