Latex reader: Skip spaces in image options

src/Text/Pandoc/Readers/LaTeX.hs

@@ -758,8 +758,10 @@ keyval = try $ do
   Tok _ Word key <- satisfyTok isWordTok
   let isSpecSym (Tok _ Symbol t) = t `elem` [".",":","-","|","\\"]
       isSpecSym _ = False
+  optional sp
   val <- option [] $ do
            symbol '='
+           optional sp
            braced <|> (many1 (satisfyTok isWordTok <|> satisfyTok isSpecSym
                                <|> anyControlSeq))
   optional sp

test/Tests/Readers/LaTeX.hs

@@ -130,6 +130,9 @@ tests = [ testGroup "basic"
           , "Image width relative to textsize" =:
             "\\includegraphics[width=0.6\\textwidth]{foo.png}" =?>
             para (imageWith ("", [], [("width", "60%")]) "foo.png" "" "image")
+          , "Image with options with spaces" =:
+            "\\includegraphics[width=12cm, height = 5cm]{foo.png}" =?>
+            para (imageWith ("", [], [("width", "12cm"), ("height", "5cm")]) "foo.png" "" "image")
           ]
 
         , let hex = ['0'..'9']++['a'..'f'] in