Default handling of Figures as Div.

Author: argent0

src/Text/Pandoc/Readers/HTML.hs

@@ -566,11 +566,10 @@ pFigure = try $ do
 pNativeFigure :: PandocMonad m => TagParser m Blocks
 pNativeFigure = try $ do
   TagOpen tag attrList <- lookAhead $ pSatisfy (matchTagOpen "figure" [])
-  --let (ident, classes, kvs) = toAttr attr
   contents <- pInTags tag (many $ Left <$> pInTags "figcaption" block <|> (Right <$> block))
 
   let (captions, rest) = partitionEithers contents
-  -- I should capture the caption
+  -- It concatenates all captions together
   return $ B.figureWith (toAttr attrList) (Caption Nothing (B.toList (mconcat captions))) $ mconcat rest
 
 pCodeBlock :: PandocMonad m => TagParser m Blocks

src/Text/Pandoc/Writers/Muse.hs

@@ -276,7 +276,7 @@ blockToMuse (Table _ blkCapt specs thead tbody tfoot) =
     isSimple = onlySimpleTableCells (headers : rows) && all (== 0) widths
 blockToMuse (Div _ bs) = flatBlockListToMuse bs
 blockToMuse Null = return empty
-blockToMuse (Figure {}) = return empty
+blockToMuse (Figure attr _ bs) = blockToMuse (Div attr bs)
 
 -- | Return Muse representation of notes collected so far.
 currentNotesToMuse :: PandocMonad m

src/Text/Pandoc/Writers/TEI.hs

@@ -191,7 +191,7 @@ blockToTEI _ HorizontalRule = return $
   selfClosingTag "milestone" [("unit","undefined")
                              ,("type","separator")
                              ,("rendition","line")]
-blockToTEI _ (Figure {}) = return empty
+blockToTEI opts (Figure attr _ bs) = blockToTEI opts (Div attr bs)
 
 -- | TEI Tables
 -- TEI Simple's tables are composed of cells and rows; other

src/Text/Pandoc/Writers/Texinfo.hs

@@ -283,6 +283,8 @@ blockToTexinfo (Figure _ (Caption _ caption) body) = do
          else inCmd "caption" captionText
     ) $$ text "@end float"
   where
+  -- floatType according to
+  -- https://www.gnu.org/software/texinfo/manual/texinfo/html_node/_0040float.html
   floatType [SimpleFigure {}] = " Figure"
   floatType [Table {}] = " Table"
   floatType _ = ""

src/Text/Pandoc/Writers/XWiki.hs

@@ -122,6 +122,8 @@ blockToXWiki (DefinitionList items) = do
   contents <- local (\s -> s { listLevel = listLevel s <> ";" }) $ mapM definitionListItemToMediaWiki items
   return $ vcat contents <> if Text.null lev then "\n" else ""
 
+-- Create a group according to
+-- https://www.xwiki.org/xwiki/bin/view/Documentation/UserGuide/Features/XWikiSyntax/?syntax=2.1&section=Groups
 blockToXWiki (Figure attr _ body) = do
   content <- blockToXWiki $ Div attr body
   return $ intercalate content ["(((\n", ")))"]