tart-0.1: programs/UI/PaletteEntrySelect.hs

module UI.PaletteEntrySelect
  ( drawPaletteEntrySelectUI
  )
where

import Data.Monoid ((<>))
import Brick

import Types
import UI.Common

drawPaletteEntrySelectUI :: AppState -> [Widget Name]
drawPaletteEntrySelectUI s =
    let isFg = case currentMode s of
          FgPaletteEntrySelect -> True
          BgPaletteEntrySelect -> False
          m -> error $ "BUG: should never get called in mode " <> show m
        pal = drawPalette s isFg
    in pal