Haskell grapheme cluster examples

graphemeCountExample.hs

import Data.Text.ICU
import qualified Data.Text as T

graphemeClustersCount :: LocaleName -> T.Text -> Int
graphemeClustersCount loc = length . breaks (breakCharacter loc)

testStr = "😀éé"

main :: IO ()
main = print $ graphemeClustersCount Current $ T.pack $ testStr

-- Output:
-- 3

graphemeReverseExample.hs

import Data.Text.ICU
import qualified Data.Text as T
import GHC.IO.Encoding
import System.Win32.Console

graphemeClustersCount :: LocaleName -> T.Text -> Int
graphemeClustersCount loc = length . breaks (breakCharacter loc)

splitToGraphemeClusters :: LocaleName -> T.Text -> [T.Text]
splitToGraphemeClusters loc = map brkBreak . breaks (breakCharacter loc)

reverseGraphemeClusters :: LocaleName -> T.Text -> T.Text
reverseGraphemeClusters loc = T.concat . reverse . splitToGraphemeClusters loc

procString :: (T.Text -> T.Text) -> String -> String
procString f = T.unpack . f . T.pack

testStr = "😀éé"

main :: IO ()
main = do
    setLocaleEncoding utf8
    setConsoleOutputCP 65001 -- Windows specific
    print $ graphemeClustersCount Current $ T.pack $ testStr
    putStrLn $ procString (reverseGraphemeClusters Current) $ testStr

-- Output:
-- 3
-- éé😀

graphemeTypeExample.hs

import Data.Text.ICU
import qualified Data.Text as T
import GHC.IO.Encoding
import System.Win32.Console

splitToGraphemeClusters :: LocaleName -> T.Text -> [T.Text]
splitToGraphemeClusters loc txt = map brkBreak (breaks (breakCharacter loc) txt)


type GraphemeCluster = [Char]
type SwiftString = [GraphemeCluster]

pack :: String -> SwiftString
pack = (map T.unpack) . (splitToGraphemeClusters Root) . T.pack

unpack :: SwiftString -> String
unpack = concat

procString :: (SwiftString -> SwiftString) -> String -> String
procString f = unpack . f . pack

testStr = "😀éé"

main :: IO ()
main = do
    setLocaleEncoding utf8
    setConsoleOutputCP 65001 -- Windows specific
    print $ length $ pack $ testStr
    putStrLn $ procString reverse $ testStr

-- Output:
-- 3
-- éé😀