bff0656806
This commit also adds a few other files that I've been working on, although most of it will get deleted again. This is just so I have them logged in git.
44 lines
1.3 KiB
Haskell
44 lines
1.3 KiB
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module TaskMachine.UI where
|
|
|
|
import Data.Monoid
|
|
|
|
import qualified Brick as B
|
|
import qualified Brick.Themes as B
|
|
import qualified Database.SQLite.Simple as DB
|
|
import qualified Graphics.Vty as VTY
|
|
|
|
import qualified TaskMachine.Config as TM
|
|
--import qualified TaskMachine.UI.ListScreen as TM
|
|
|
|
data ResourceName = Asdf
|
|
deriving (Eq, Ord)
|
|
|
|
data UIState = UIState
|
|
{ uiConfig :: TM.Config
|
|
, uiDBConnection :: DB.Connection
|
|
, uiScreenState :: ScreenState
|
|
}
|
|
|
|
data ScreenState
|
|
= Dummy
|
|
-- = ScreenList TM.ListScreen
|
|
|
|
defaultTheme :: B.Theme
|
|
defaultTheme = B.newTheme VTY.defAttr
|
|
[ ("taskList" <> "normal", withStyle VTY.bold $ B.fg VTY.cyan)
|
|
, ("taskList" <> "highlight", B.bg VTY.cyan)
|
|
]
|
|
where withStyle = flip VTY.withStyle
|
|
|
|
myApp :: B.App () () ResourceName
|
|
myApp = B.App
|
|
{ B.appDraw = \_ -> [myTestWidget]
|
|
, B.appHandleEvent = B.resizeOrQuit
|
|
, B.appStartEvent = \s -> return s
|
|
, B.appChooseCursor = B.neverShowCursor
|
|
, B.appAttrMap = const $ B.themeToAttrMap defaultTheme
|
|
}
|
|
where
|
|
myTestWidget = B.withAttr ("taskList" <> "normal") (B.str "normal ") B.<+> B.withAttr ("taskList" <> "highlight") (B.str "style")
|