From 2881c1274018a31e78ccba647cae4c2764fb5dad Mon Sep 17 00:00:00 2001 From: Michael Stahl Date: Mon, 1 May 2023 13:59:29 +0200 Subject: Writers.OpenDocument: handle row header column cells as ordinary cells While ODF 1.3 part 3 does specify a 9.1.11 element, in practice it's only implemented by spreadsheet applications, not word processors. So simply treat the row header columns as ordinary table columns, at least they don't get lost then. Fixes: #8764 --- src/Text/Pandoc/Writers/OpenDocument.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Writers/OpenDocument.hs b/src/Text/Pandoc/Writers/OpenDocument.hs index e844d91f7..fa2750b90 100644 --- a/src/Text/Pandoc/Writers/OpenDocument.hs +++ b/src/Text/Pandoc/Writers/OpenDocument.hs @@ -516,9 +516,9 @@ tableRowToOpenDocument :: PandocMonad m => WriterOptions -> [Text] -> Ann.BodyRow -> OD m (Doc Text) tableRowToOpenDocument o ns r = - let (Ann.BodyRow _ _ _ c ) = r + let (Ann.BodyRow _ _ rowheaders cs) = r in inTagsIndented "table:table-row" . vcat <$> - mapM (tableItemToOpenDocument o "TableRowCell") (zip ns c) + mapM (tableItemToOpenDocument o "TableRowCell") (zip ns (rowheaders ++ cs)) colspanAttrib :: ColSpan -> [(Text, Text)] colspanAttrib cs = -- cgit v1.2.3