ribosome-host-0.9.9.9: lib/Ribosome/Host/Text.hs

module Ribosome.Host.Text where

import qualified Data.Text as Text
import Exon (exon)
import Text.Casing (pascal)

ellipsize :: Int -> Text -> Text
ellipsize maxChars msg =
  [exon|#{pre}#{if Text.null post then "" else "..."}|]
  where
    (pre, post) =
      Text.splitAt maxChars msg

pascalCase ::
  ToString a =>
  IsString b =>
  a ->
  b
pascalCase =
  fromString . pascal . toString