From a5ec298989df1f04e06000db6074b4a7c4db74f4 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 26 Mar 2017 10:09:41 +0200
Subject: Ms writer: improved internal links.

---
 src/Text/Pandoc/Writers/Ms.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/Text')

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
-- 
cgit v1.2.3