Acronym.hs

module Acronym (abbreviate) where

import Data.Text (Text, toUpper, split, concat)
import Data.Char (isSpace)

abbreviate :: Text -> Text
abbreviate = split(\c -> isSpace c || c `elem` [ '-', '_' ])
            . Data.Text.concat
-- abbreviate = map toUpper
--             . concatMap (take 1)
--             . split (\c -> isSpace c || c `elem` [ '-', '_' ])