-- | Get two capital characters out of a name
twoCharsName :: Text -> Text
twoCharsName s = case filter (not . null) $ Text.words s of
   [name] -> Text.toUpper $ Text.take 2 name
   n1:n2:_ -> Text.toUpper $ Text.take 1 n1 <> Text.take 1 n2
   _ -> "??"
twoCharsName :: Text -> Text
twoCharsName s = case filter (not . null) $ Text.words s of
   [name] -> Text.toUpper $ Text.take 2 name
   n1:n2:_ -> Text.toUpper $ Text.take 1 n1 <> Text.take 1 n2
   _ -> "??"
twoCharsName s = case filter (not . null) $ Text.words s of
   [name] -> Text.toUpper $ Text.take 2 name
   n1:n2:_ -> Text.toUpper $ Text.take 1 n1 <> Text.take 1 n2
   _ -> "??"