git-brunch-1.3.0.0: app/Theme.hs

module Theme
  ( theme
  )
where

import           Brick.AttrMap                            ( attrName )
import           Brick.Themes                             ( Theme
                                                          , newTheme
                                                          )
import           Brick.Util
import           Graphics.Vty
import qualified Brick.Widgets.Dialog          as Dialog
import qualified Brick.Widgets.List            as List

theme :: Theme
theme = newTheme
  (white `on` brightBlack)
  [ (List.listAttr               , fg brightWhite)
  , (List.listSelectedAttr       , fg brightWhite)
  , (List.listSelectedFocusedAttr, black `on` brightYellow)
  , (Dialog.dialogAttr           , fg brightWhite)
  , (Dialog.buttonAttr           , brightBlack `on` white)
  , (Dialog.buttonSelectedAttr   , black `on` brightMagenta)
  , (attrName "key"              , withStyle (fg brightMagenta) bold)
  , (attrName "bold"             , withStyle (fg white) bold)
  , (attrName "under"            , withStyle (fg brightWhite) underline)
  , (attrName "current"          , fg brightRed)
  , (attrName "title"            , withStyle (fg yellow) bold)
  ]