@@ -556,7 +556,7 @@ inlineCommands = M.fromList $
556556 tok >>= \lab ->
557557 pure (link url "" lab))
558558 , ("includegraphics", do options <- option [] keyvals
559− src <- unescapeURL <$> braced
559+ src <- unescapeURL . removeDoubleQuotes <$> braced
560560 mkImage options src)
561561 , ("enquote", enquote)
562562 , ("cite", citation "cite" NormalCitation False)
@@ -1396,3 +1396,10 @@ endInclude = do
13961396 co <- braced
13971397 setPosition $ newPos fn (fromMaybe 1 $ safeRead ln) (fromMaybe 1 $ safeRead co)
13981398 return mempty
1399+
1400+removeDoubleQuotes :: String -> String
1401+removeDoubleQuotes ('"':xs) =
1402+ case reverse xs of
1403+ '"':ys -> reverse ys
1404+ _ -> '"':xs
1405+removeDoubleQuotes xs = xs