{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}

module RIO.PrettyPrint.DefaultStyles
  (
    defaultStyles
  ) where

import Data.Array.IArray (array)
import RIO
import RIO.PrettyPrint.Types (Style (..), Styles)
import System.Console.ANSI.Codes (Color (..), ColorIntensity (..),
  ConsoleIntensity (..), ConsoleLayer (..), SGR (..))

-- | Default styles for rio-prettyprint output.
defaultStyles :: Styles
defaultStyles = array (minBound, maxBound)
  [ (Error, ("error", [SetColor Foreground Vivid Red]))
  , (Warning, ("warning", [SetColor Foreground Dull Yellow]))
  , (Info, ("info", [SetColor Foreground Dull Blue]))
  , (Debug, ("debug", [SetColor Foreground Dull Green]))
  , (OtherLevel, ("other-level", [SetColor Foreground Dull Magenta]))
  , (Good, ("good", [SetColor Foreground Vivid Green]))
  , (Shell, ("shell", [SetColor Foreground Vivid Magenta]))
  , (File, ("file", [SetColor Foreground Dull Cyan]))
  -- For now 'Url' using the same style as 'File'
  , (Url, ("url", [SetColor Foreground Dull Cyan]))
  , (Dir, ("dir", [ SetConsoleIntensity BoldIntensity
                  , SetColor Foreground Vivid Blue ]))
  , (Recommendation, ("recommendation", [ SetConsoleIntensity BoldIntensity
                                      , SetColor Foreground Vivid Green]))
  , (Current, ("current", [SetColor Foreground Dull Yellow]))
  , (Target, ("target", [SetColor Foreground Vivid Cyan]))
  -- TODO: what color should Module be?
  , (Module, ("module", [SetColor Foreground Vivid Magenta]))
  , (PkgComponent, ("package-component", [SetColor Foreground Vivid Cyan]))
  , (Secondary, ("secondary", [SetColor Foreground Vivid Black]))
  , (Highlight, ("highlight", [SetColor Foreground Vivid Green]))
  ]