From 16104881b34596b39e41d4fd47f3e3af68e575ac Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Thu, 5 Apr 2018 13:12:17 +0300 Subject: [PATCH] Muse writer: simplify escaping in inlineToMuse Image{} --- src/Text/Pandoc/Writers/Muse.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs index aae6b3d9d..4986aa8a6 100644 --- a/src/Text/Pandoc/Writers/Muse.hs +++ b/src/Text/Pandoc/Writers/Muse.hs @@ -506,12 +506,11 @@ inlineToMuse (Image attr inlines (source, title)) = do then if null inlines then "" else "[" <> alt <> "]" - else "[" <> text (escape title) <> "]" + else "[" <> text (conditionalEscapeString True title) <> "]" let width = case dimension Width attr of Just (Percent x) | isEnabled Ext_amuse opts -> " " ++ show (round x :: Integer) _ -> "" return $ "[[" <> text (urlEscapeBrackets source ++ width) <> "]" <> title' <> "]" - where escape s = if "]" `isInfixOf` s then escapeString s else conditionalEscapeString True s inlineToMuse (Note contents) = do -- add to notes in state notes <- gets stNotes