diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-12-15 10:03:19 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-12-15 10:06:03 -0800 |
| commit | 47c360e0795a5f27e4906ea22fff388b779f270a (patch) | |
| tree | 18808b42697ea719cbc511c76dcca04bca7d5aff /src/Text/Pandoc/Writers | |
| parent | 544f3e5b45c7452c7bb90a630ec0904c4808113e (diff) | |
| download | pandoc-47c360e0795a5f27e4906ea22fff388b779f270a.tar.gz | |
Improved texorpdfstring patch #1148.
* Make LaTeX reader recognize texorpdfstring.
* Don't use texorpdfstring unless it's actually needed.
* Fix tests.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index ee9f7f620..2c86d1a6e 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -626,9 +626,12 @@ sectionHeader unnumbered ref level lst = do then return empty else do return $ brackets txtNoNotes - let stuffing = star <> optional <> braces (text "\\texorpdfstring" - <> braces txt - <> braces (text plain)) + let contents = if render Nothing txt == plain + then braces txt + else braces (text "\\texorpdfstring" + <> braces txt + <> braces (text plain)) + let stuffing = star <> optional <> contents book <- gets stBook opts <- gets stOptions let level' = if book || writerChapters opts then level - 1 else level |