git-brunch-1.5.0.0: app/Theme.hs

module Theme where

import           Brick.AttrMap                  ( AttrName
                                                , attrName
                                                )
import           Brick.Themes
import           Brick.Util
import           Brick.Widgets.Border          as Border
import qualified Brick.Widgets.Dialog          as Dialog
import qualified Brick.Widgets.Edit            as Edit
import qualified Brick.Widgets.List            as List
import           Graphics.Vty

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)
  , (Border.borderAttr           , fg white)
  , (Edit.editFocusedAttr        , fg brightWhite)
  , (attrKey                     , withStyle (fg brightMagenta) bold)
  , (attrBold                    , withStyle (fg white) bold)
  , (attrUnder                   , withStyle (fg brightWhite) underline)
  , (attrTitle                   , withStyle (fg brightWhite) bold)
  , (attrTitleFocus              , withStyle (fg yellow) bold)
  , (attrBranchCurrent           , fg brightRed)
  , (attrBranchCommon            , fg brightBlue)
  ]


attrKey :: AttrName
attrKey = attrName "key"
attrBold :: AttrName
attrBold = attrName "bold"
attrUnder :: AttrName
attrUnder = attrName "under"
attrTitle :: AttrName
attrTitle = attrName "title"
attrTitleFocus :: AttrName
attrTitleFocus = attrName "title-focus"
attrBranchCurrent :: AttrName
attrBranchCurrent = attrName "current-branch"
attrBranchCommon :: AttrName
attrBranchCommon = attrName "common-branch"