@@ -808,6 +808,7 @@ environments :: M.Map String (LP Blocks)
808808environments = M.fromList
809809 [ ("document", env "document" blocks <* skipMany anyChar)
810810 , ("letter", env "letter" letter_contents)
811+ , ("figure", env "figure" $ skipopts *> blocks)
811812 , ("center", env "center" blocks)
812813 , ("tabular", env "tabular" simpTable)
813814 , ("quote", blockQuote <$> env "quote" blocks)