From 655d87657e568b889283fae51d2d6eeaa1736c30 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 4 Aug 2023 10:27:10 -0700 Subject: Support highlighted text in ODT/OpenDocument writers. See #8960. This is a prelimary fix. A better fix would use a named style so colors could be adjusted. --- src/Text/Pandoc/Writers/OpenDocument.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Writers/OpenDocument.hs b/src/Text/Pandoc/Writers/OpenDocument.hs index feea97d8e..e54322e8b 100644 --- a/src/Text/Pandoc/Writers/OpenDocument.hs +++ b/src/Text/Pandoc/Writers/OpenDocument.hs @@ -594,6 +594,8 @@ inlineToOpenDocument o ils | writerWrapText o == WrapPreserve -> return $ preformatted "\n" | otherwise -> return space + Span ("", ["mark"], []) xs -> + withTextStyle Highlight $ inlinesToOpenDocument o xs Span attr xs -> mkSpan attr xs LineBreak -> return $ selfClosingTag "text:line-break" [] Str s -> return $ handleSpaces $ escapeStringForXML s @@ -864,6 +866,7 @@ data TextStyle = Italic | Sup | SmallC | Pre + | Highlight | Language Lang deriving ( Eq,Ord ) @@ -884,6 +887,7 @@ textStyleAttr m = \case Sub -> Map.insert "style:text-position" "sub 58%" m Sup -> Map.insert "style:text-position" "super 58%" m SmallC -> Map.insert "fo:font-variant" "small-caps" m + Highlight -> Map.insert "fo:background-color" "#ffff38" m Pre -> Map.insert "style:font-name" "Courier New" . Map.insert "style:font-name-asian" "Courier New" . Map.insert "style:font-name-complex" "Courier New" $ m -- cgit v1.2.3