@@ -808,6 +808,7 @@ environments :: M.Map String (LP Blocks)
808environments = M.fromList
808environments = M.fromList
809 [ ("document", env "document" blocks <* skipMany anyChar)
809 [ ("document", env "document" blocks <* skipMany anyChar)
810 , ("letter", env "letter" letter_contents)
810 , ("letter", env "letter" letter_contents)
811+ , ("figure", env "figure" $ skipopts *> blocks)
811 , ("center", env "center" blocks)
812 , ("center", env "center" blocks)
812 , ("tabular", env "tabular" simpTable)
813 , ("tabular", env "tabular" simpTable)
813 , ("quote", blockQuote <$> env "quote" blocks)
814 , ("quote", blockQuote <$> env "quote" blocks)