prints-0.1.0.0: Text/Prints/Printers/Simple.hs

module Text.Prints.Printers.Simple
  ( simplePrints
  ) where

import           Control.Monad.IO.Class            (MonadIO)
import           Data.Text.Lazy.Builder            (Builder)
import           Text.Pretty.Simple
import           Text.Pretty.Simple.Internal
import           Text.Pretty.Simple.Internal.Color

simplePrints :: (MonadIO m, Show a) => a -> m ()
simplePrints = pPrintOpt OutputOptions
  { outputOptionsIndentAmount = 2
  , outputOptionsColorOptions = Just $ colors
  }

colors :: ColorOptions
colors = ColorOptions
  { colorQuote         = colorDullGreenBold
  , colorString        = colorVividGreen
  , colorError         = colorVividRedBold
  , colorNum           = colorVividBlue
  , colorRainbowParens = colorPar
  }

colorPar :: [Builder]
colorPar =
  [ colorVividCyan
  , colorVividBlue
  , colorVividRed
  , colorVividYellow
  , colorVividMagenta
  , colorVividGreen
  , colorDullCyanBold
  , colorDullBlueBold
  , colorDullRedBold
  , colorDullYellowBold
  , colorDullMagentaBold
  , colorDullGreenBold
  ]