git.iko.soy/typeable/pandoc
on master help sign in
Roff tokenizer: allow space before ( in table options.
3cb8a3fJohn MacFarlane
src/Text/Pandoc/Readers/Roff.hs+2−1
compare with master
unifiedsplit
@@ -396,7 +396,8 @@ tableOptions = try $ many tableOption <* spaces <* char ';'
396tableOption :: PandocMonad m => RoffLexer m TableOption
396tableOption :: PandocMonad m => RoffLexer m TableOption
397tableOption = do
397tableOption = do
398 k <- many1 letter
398 k <- many1 letter
399− v <- option "" $ do
399+ v <- option "" $ try $ do
400+ skipMany spacetab
400 char '('
401 char '('
401 manyTill anyChar (char ')')
402 manyTill anyChar (char ')')
402 skipMany spacetab
403 skipMany spacetab