WIP: Rewrite cleanText to strip zero width spaces

glguy · May 1, 2024 · b12fbd3 · b12fbd3
1 parent 08a7f94
commit b12fbd3
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Client/Image/Message.hs b/src/Client/Image/Message.hs
@@ -112,7 +112,9 @@ cleanChar x
   | otherwise   = x
 
 cleanText :: Text -> Text
-cleanText = Text.map cleanChar
+cleanText = Text.concatMap f where
+  f c | c == '\8203' = Text.empty -- remove the zero width space the haskell bridge uses
+  f c = Text.singleton (cleanChar c)
 
 ctxt :: Text -> Image'
 ctxt = text' defAttr . cleanText