diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-03-26 10:09:41 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-03-26 10:09:41 +0200 |
| commit | a5ec298989df1f04e06000db6074b4a7c4db74f4 (patch) | |
| tree | 813f3edc80c9d681f3e55ca46c907730aa0ca624 | |
| parent | c44ad0710a6aecc064be39d07a0dda69eac2f1d8 (diff) | |
Ms writer: improved internal links.
| -rw-r--r-- | src/Text/Pandoc/Writers/Ms.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs index d70968d08..9b1119ed4 100644 --- a/src/Text/Pandoc/Writers/Ms.hs +++ b/src/Text/Pandoc/Writers/Ms.hs @@ -480,8 +480,9 @@ inlineToMs opts (Link _ txt ('#':ident, _)) = do -- internal link contents <- inlineListToMs' opts{ writerWrapText = WrapNone } txt return $ text "\\c" <> cr <> nowrap (text ".pdfhref L -D " <> - doubleQuotes (text ident) <> space <> - doubleQuotes contents) <> cr + doubleQuotes (text ident) <> text " -A " <> + doubleQuotes (text "\\c") <> text " -- " <> contents) <> + cr <> text "\\&" inlineToMs opts (Link _ txt (src, _)) = do let srcSuffix = fromMaybe src (stripPrefix "mailto:" src) inNote <- gets stInNote |