utf8boldify function definition

1 files changed, 12 insertions, 1 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 291d0530..4f26fc16 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -80,6 +80,9 @@ import Data.Aeson as J (ToJSON, FromJSON)
 import qualified Data.Aeson as J
 import qualified Data.ByteString.Lazy as L
 import qualified Data.ByteString.Char8 as B
+import qualified Data.Text as T
+import qualified Data.Text.Encoding as E
+import qualified Data.Text.Encoding.Error as E
 import Control.Concurrent.Tasks
 import System.IO.Error
 import qualified Data.Serialize as S
@@ -1521,7 +1524,15 @@ showMsg (n,(flg,(snapshot,iocm))) = B.concat [bool "  " "h " flg, showmsg' (snap
     where
         showmsg' (snapshot,In cm) = B.concat [Tox.vNick snapshot,"> ", pshow cm]
         showmsg' (snapshot,Out cm) = B.concat [utf8boldify (Tox.vNick snapshot),": ",pshow cm]
-        utf8boldify s = s
+        utf8boldify s = boldify (T.decodeUtf8With E.lenientDecode s)
+            where
+                boldify :: T.Text -> B.ByteString
+                boldify j = E.encodeUtf8 $ T.map addIt j
+                    where addIt x = let o = ord x in case o of
+                            _ | o <= 90 && o >= 65  -> chr (o + 119743)
+                            _ | o <= 122 && o >= 97 -> chr (o + 119737)
+                            _ -> x
+
 
 main :: IO ()
 main = runResourceT $ liftBaseWith $ \resT -> do