diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-04-30 07:46:38 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-04-30 07:46:38 -0700 |
| commit | 8201257b5c13f90f14aa529fac1b341fd1a900eb (patch) | |
| tree | 3efbb91c78758764962ecc5d8da5cf88809f9813 /src/Text/Pandoc/Writers | |
| parent | 8d64109c8058ec3a06ee88aa6f2d7fcbe8de4ff5 (diff) | |
| download | pandoc-8201257b5c13f90f14aa529fac1b341fd1a900eb.tar.gz | |
LaTeX writer: Fixed spacing in quote environments.
Closes #502. Previously you'd get:
~~~
hi
\begin{quote}
hi
\end{quote}
hi
~~~
Now we get:
~~~
hi
\begin{quote}
hi
\end{quote}
hi
~~~
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index 923d8361b..b114e4444 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -278,7 +278,8 @@ blockToLaTeX (BlockQuote lst) = do return result _ -> do contents <- blockListToLaTeX lst - return $ "\\begin{quote}" $$ contents $$ "\\end{quote}" + return $ "\\begin{quote}" $$ chomp contents $$ "\\end{quote}" + <> blankline blockToLaTeX (CodeBlock (_,classes,keyvalAttr) str) = do opts <- gets stOptions case () of |