summaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/DokuWiki.hs6
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/DokuWiki.hs b/src/Text/Pandoc/Readers/DokuWiki.hs
index 1ca4cf696..77213a111 100644
--- a/src/Text/Pandoc/Readers/DokuWiki.hs
+++ b/src/Text/Pandoc/Readers/DokuWiki.hs
@@ -389,7 +389,11 @@ image = try $ parseLink fromRaw "{{" "}}"
parameterList = T.splitOn "&" $ T.drop 1 parameters
linkOnly = "linkonly" `elem` parameterList
(width, height) = maybe (Nothing, Nothing) parseWidthHeight (F.find isWidthHeightParameter parameterList)
- attributes = catMaybes [fmap ("width",) width, fmap ("height",) height]
+ attributes = catMaybes [
+ fmap ("width",) width,
+ fmap ("height",) height,
+ fmap ("query",) (if T.null parameters then Nothing else Just parameters)
+ ]
defaultDescription = B.str $ urlToText path'
-- * Block parsers