@@ -556,7 +556,7 @@ inlineCommands = M.fromList $
556 tok >>= \lab ->
556 tok >>= \lab ->
557 pure (link url "" lab))
557 pure (link url "" lab))
558 , ("includegraphics", do options <- option [] keyvals
558 , ("includegraphics", do options <- option [] keyvals
559− src <- unescapeURL <$> braced
559+ src <- unescapeURL . removeDoubleQuotes <$> braced
560 mkImage options src)
560 mkImage options src)
561 , ("enquote", enquote)
561 , ("enquote", enquote)
562 , ("cite", citation "cite" NormalCitation False)
562 , ("cite", citation "cite" NormalCitation False)
@@ -1396,3 +1396,10 @@ endInclude = do
1396 co <- braced
1396 co <- braced
1397 setPosition $ newPos fn (fromMaybe 1 $ safeRead ln) (fromMaybe 1 $ safeRead co)
1397 setPosition $ newPos fn (fromMaybe 1 $ safeRead ln) (fromMaybe 1 $ safeRead co)
1398 return mempty
1398 return mempty
1400+removeDoubleQuotes :: String -> String
1401+removeDoubleQuotes ('"':xs) =
1403+ '"':ys -> reverse ys
1405+removeDoubleQuotes xs = xs