@@ -234,8 +234,8 @@ blocks = mconcat <$> many block
234234
235235getRawCommand :: String -> LP String
236236getRawCommand name' = do
237− rawargs <- withRaw (opt `sepBy` (optional sp) *>
238− option "" (optional sp *> dimenarg) *>
237+ rawargs <- withRaw (many (try (optional sp *> opt)) *>
238+ option "" (try (optional sp *> dimenarg)) *>
239239 many braced)
240240 return $ '\\' : name' ++ snd rawargs
241241
@@ -818,10 +818,10 @@ tok :: LP Inlines
818818tok = try $ grouped inline <|> inlineCommand <|> str <$> count 1 inlineChar
819819
820820opt :: LP Inlines
821−opt = bracketed inline <* optional sp
821+opt = bracketed inline
822822
823823skipopts :: LP ()
824−skipopts = skipMany opt
824+skipopts = skipMany (opt *> optional sp)
825825
826826inlineText :: LP Inlines
827827inlineText = str <$> many1 inlineChar