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

Muse reader: hlint

Browse source
This commit is contained in:
Alexander Krotov 2018-08-30 16:03:01 +03:00
parent d74c63d6d3
commit cc8e115b72
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Readers/Muse.hs
View file

@ -964,11 +964,11 @@ explicitLink = try $ do
image :: PandocMonad m => MuseParser m (F Inlines) image :: PandocMonad m => MuseParser m (F Inlines)
image = try $ do image = try $ do
string "[[" string "[["
(url, (ext, width, align)) <- manyUntil (noneOf "]") $ (imageExtensionAndOptions <* char ']') (url, (ext, width, align)) <- manyUntil (noneOf "]") (imageExtensionAndOptions <* char ']')
content <- optionMaybe linkContent content <- optionMaybe linkContent
char ']' char ']'
let widthAttr = case align of let widthAttr = case align of
Just 'f' -> [("width", (fromMaybe "100" width) ++ "%"), ("height", "75%")] Just 'f' -> [("width", fromMaybe "100" width ++ "%"), ("height", "75%")]
_ -> maybeToList (("width",) . (++ "%") <$> width) _ -> maybeToList (("width",) . (++ "%") <$> width)
let alignClass = case align of let alignClass = case align of
Just 'r' -> ["align-right"] Just 'r' -> ["align-right"]