aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-03-26 10:09:41 +0200
committerJohn MacFarlane <jgm@berkeley.edu>2017-03-26 10:09:41 +0200
commita5ec298989df1f04e06000db6074b4a7c4db74f4 (patch)
tree813f3edc80c9d681f3e55ca46c907730aa0ca624 /src/Text
parentc44ad0710a6aecc064be39d07a0dda69eac2f1d8 (diff)
downloadpandoc-a5ec298989df1f04e06000db6074b4a7c4db74f4.tar.gz
Ms writer: improved internal links.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/Ms.hs5
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