From 48729f9715f4deec6d621c363fd4d16d089497b2 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 4 Apr 2017 17:21:02 +0200 Subject: Ms writer improvements: - added some variables to the default template. - cleaner output for images (stringify alt text). --- src/Text/Pandoc/Writers/Ms.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs index aadbd208e..4118a7bfb 100644 --- a/src/Text/Pandoc/Writers/Ms.hs +++ b/src/Text/Pandoc/Writers/Ms.hs @@ -516,10 +516,9 @@ inlineToMs opts (Link _ txt (src, _)) = do doubleQuotes (text (escapeUri src)) <> text " -A " <> doubleQuotes (text "\\c") <> space <> text "\\") <> cr <> text " -- " <> doubleQuotes (nowrap contents) <> cr <> text "\\&" -inlineToMs opts (Image attr alternate (source, tit)) = do - let alt = if null alternate then [Str "image"] else alternate - linkPart <- inlineToMs opts (Link attr alt (source, tit)) - return $ char '[' <> text "IMAGE: " <> linkPart <> char ']' +inlineToMs _ (Image _ alternate (_, _)) = + return $ char '[' <> text "IMAGE: " <> + text (escapeString (stringify alternate)) <> char ']' inlineToMs _ (Note contents) = do modify $ \st -> st{ stNotes = contents : stNotes st } return $ text "\\**" -- cgit v1.2.3