diff options
| author | Aner Lucero <4rgento@gmail.com> | 2021-06-09 10:53:35 -0300 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-10-22 15:14:23 -0700 |
| commit | 921af3085422ed5896db6996c54009cf2a61a517 (patch) | |
| tree | 0c1e58837b5105e972ac3717a95c54df14b52a2e /src/Text/Pandoc/Readers/Org/Blocks.hs | |
| parent | a9f4bff5e29ed15fb567f4d5f59b60ef3c71933f (diff) | |
| download | pandoc-921af3085422ed5896db6996c54009cf2a61a517.tar.gz | |
Use simpleFigure in Readers.
Diffstat (limited to 'src/Text/Pandoc/Readers/Org/Blocks.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Org/Blocks.hs | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/src/Text/Pandoc/Readers/Org/Blocks.hs b/src/Text/Pandoc/Readers/Org/Blocks.hs index 2ec97d903..9a689b0e8 100644 --- a/src/Text/Pandoc/Readers/Org/Blocks.hs +++ b/src/Text/Pandoc/Readers/Org/Blocks.hs @@ -474,15 +474,16 @@ figure = try $ do figCaption = fromMaybe mempty $ blockAttrCaption figAttrs figKeyVals = blockAttrKeyValues figAttrs attr = (figLabel, mempty, figKeyVals) - figTitle = (if isFigure then withFigPrefix else id) figName - in - B.para . B.imageWith attr imgSrc figTitle <$> figCaption - - withFigPrefix :: Text -> Text - withFigPrefix cs = - if "fig:" `T.isPrefixOf` cs - then cs - else "fig:" <> cs + in if isFigure + then (\c -> + B.simpleFigureWith + attr c imgSrc (unstackFig figName)) <$> figCaption + else B.para . B.imageWith attr imgSrc figName <$> figCaption + unstackFig :: Text -> Text + unstackFig figName = + if "fig:" `T.isPrefixOf` figName + then T.drop 4 figName + else figName -- | Succeeds if looking at the end of the current paragraph endOfParagraph :: Monad m => OrgParser m () |