From 64bcb9fe0361b448a8175810e9eb45826c83cda0 Mon Sep 17 00:00:00 2001
From: Vaclav Zeman <vhaisman@gmail.com>
Date: Mon, 10 Feb 2014 09:11:50 +0100
Subject: [PATCH] src/Text/Pandoc/Writers/LaTeX.hs: Use \texorpdfstring for
section captions.
---
src/Text/Pandoc/Writers/LaTeX.hs | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs
index a76d6d82b..63e8acb7d 100644
--- a/src/Text/Pandoc/Writers/LaTeX.hs
+++ b/src/Text/Pandoc/Writers/LaTeX.hs
@@ -555,6 +555,7 @@ sectionHeader :: Bool -- True for unnumbered
-> State WriterState Doc
sectionHeader unnumbered ref level lst = do
txt <- inlineListToLaTeX lst
+ plain <- stringToLaTeX TextString $ foldl (++) "" $ map stringify lst
let noNote (Note _) = Str ""
noNote x = x
let lstNoNotes = walk noNote lst
@@ -567,7 +568,9 @@ sectionHeader unnumbered ref level lst = do
then return empty
else do
return $ brackets txtNoNotes
- let stuffing = star <> optional <> braces txt
+ let stuffing = star <> optional <> braces (text "\\texorpdfstring"
+ <> braces txt
+ <> braces (text plain))
book <- gets stBook
opts <- gets stOptions
let level' = if book || writerChapters opts then level - 1 else level