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

LaTeX writer: Properly escape pdftitle, pdfauthor.

Browse source 
Closes #1059.
This commit is contained in:
John MacFarlane 2013-11-16 14:09:09 -08:00
parent b4441c940d
commit 892ba2dd16
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -126,14 +126,16 @@ pandocToLaTeX options (Pandoc meta blocks) = do
(biblioTitle :: String) <- liftM (render colwidth) $ inlineListToLaTeX lastHeader (biblioTitle :: String) <- liftM (render colwidth) $ inlineListToLaTeX lastHeader
let main = render colwidth $ vsep body let main = render colwidth $ vsep body
st <- get st <- get
titleMeta <- stringToLaTeX TextString $ stringify $ docTitle meta
authorsMeta <- mapM (stringToLaTeX TextString . stringify) $ docAuthors meta
let context = defField "toc" (writerTableOfContents options) $ let context = defField "toc" (writerTableOfContents options) $
defField "toc-depth" (show (writerTOCDepth options - defField "toc-depth" (show (writerTOCDepth options -
if writerChapters options if writerChapters options
then 1 then 1
else 0)) $ else 0)) $
defField "body" main $ defField "body" main $
defField "title-meta" (stringify $ docTitle meta) $ defField "title-meta" titleMeta $
defField "author-meta" (intercalate "; " $ map stringify $ docAuthors meta) $ defField "author-meta" (intercalate "; " authorsMeta) $
defField "documentclass" (if writerBeamer options defField "documentclass" (if writerBeamer options
then ("beamer" :: String) then ("beamer" :: String)
else if writerChapters options else if writerChapters options