Acronym.hs

module Acronym (abbreviate) where

import Data.Char (isSpace, isUpper)
import Data.Text (Text, concat, split, toUpper)
import qualified Data.Text as T

abbreviate :: Text -> Text
abbreviate =
  T.concat
    . map (\w -> T.pack (take 1 w + (filter isUpper . dropWhile isUpper) w))
    . split (\c -> isSpace c || c `elem` ['-', '_'])

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