diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index edbc40aafc64..69917b3d9973 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -526,10 +526,11 @@ blockToLaTeX (BulletList lst) = do let spacing = if isTightList lst then text "\\tightlist" else empty - return $ text ("\\begin{itemize}" <> inc) $$ + return $ -- force list to start on new line if in a defn list + (if isFirstInDefinition then "\\hfill" else mempty) $$ + text ("\\begin{itemize}" <> inc) $$ spacing $$ -- force list at beginning of definition to start on new line - (if isFirstInDefinition then "\\item[]" else mempty) $$ vcat items $$ "\\end{itemize}" blockToLaTeX (OrderedList _ []) = return empty -- otherwise latex error @@ -577,12 +578,12 @@ blockToLaTeX (OrderedList (start, numstyle, numdelim) lst) = do let spacing = if isTightList lst then text "\\tightlist" else empty - return $ text ("\\begin{enumerate}" <> inc) + return $ -- force list at beginning of definition to start on new line + (if isFirstInDefinition then "\\hfill" else mempty) + $$ text ("\\begin{enumerate}" <> inc) $$ stylecommand $$ resetcounter $$ spacing - -- force list at beginning of definition to start on new line - $$ (if isFirstInDefinition then "\\item[]" else mempty) $$ vcat items $$ "\\end{enumerate}" blockToLaTeX (DefinitionList []) = return empty diff --git a/test/command/lists-inside-definition.md b/test/command/lists-inside-definition.md index e5c6e83c6554..731cd10d3d7b 100644 --- a/test/command/lists-inside-definition.md +++ b/test/command/lists-inside-definition.md @@ -12,10 +12,10 @@ Definition \begin{description} \tightlist \item[Definition] +\hfill \begin{enumerate} \def\labelenumi{\arabic{enumi}.} \tightlist -\item[] \item list \item @@ -56,9 +56,9 @@ Definition \begin{description} \tightlist \item[Definition] +\hfill \begin{itemize} \tightlist -\item[] \item list \item