Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Muse writer: simplify escaping in inlineToMuse Image{}

Browse source
This commit is contained in:
Alexander Krotov 2018-04-05 13:12:17 +03:00
parent 13538ce6eb
commit 16104881b3
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Text/Pandoc/Writers/Muse.hs
View file

@ -506,12 +506,11 @@ inlineToMuse (Image attr inlines (source, title)) = do
then if null inlines then if null inlines
then "" then ""
else "[" <> alt <> "]" else "[" <> alt <> "]"
else "[" <> text (escape title) <> "]" else "[" <> text (conditionalEscapeString True title) <> "]"
let width = case dimension Width attr of let width = case dimension Width attr of
Just (Percent x) | isEnabled Ext_amuse opts -> " " ++ show (round x :: Integer) Just (Percent x) | isEnabled Ext_amuse opts -> " " ++ show (round x :: Integer)
_ -> "" _ -> ""
return $ "[[" <> text (urlEscapeBrackets source ++ width) <> "]" <> title' <> "]" return $ "[[" <> text (urlEscapeBrackets source ++ width) <> "]" <> title' <> "]"
where escape s = if "]" `isInfixOf` s then escapeString s else conditionalEscapeString True s
inlineToMuse (Note contents) = do inlineToMuse (Note contents) = do
-- add to notes in state -- add to notes in state
notes <- gets stNotes notes <- gets stNotes