lib: Write.Ods.escape: escape cell contents

2024-07-27 23:51:02 +02:00 · 2024-07-27 23:51:02 +02:00 · 2a1f3920c6
commit 2a1f3920c6
parent ba0db5feec
1 changed files with 13 additions and 1 deletions
--- a/hledger-lib/Hledger/Write/Ods.hs
+++ b/hledger-lib/Hledger/Write/Ods.hs
@ -213,6 +213,18 @@ formatCell cell =

    in
    printf "<table:table-cell%s %s>" style valueType :
-    printf "<text:p>%s</text:p>" (cellContent cell) :
+    printf "<text:p>%s</text:p>" (escape $ T.unpack $ cellContent cell) :
    "</table:table-cell>" :
    []
+
+escape :: String -> String
+escape =
+    concatMap $ \c ->
+        case c of
+            '\n' -> "&#10;"
+            '&' -> "&amp;"
+            '<' -> "&lt;"
+            '>' -> "&gt;"
+            '"' -> "&quot;"
+            '\'' -> "&apos;"
+            _ -> [c]