Garmelon/task-machine
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Move some UI stuff

Browse source
This commit is contained in:
Joscha 2018-03-18 14:46:24 +00:00
parent 119b4bd118
commit c1596baaeb
2 changed files with 28 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

17
app/Main.hs
View file

@ -10,20 +10,9 @@ import Control.Monad
import Data.Monoid import Data.Monoid
import qualified Brick as B import qualified Brick as B
import qualified Graphics.Vty as VTY import qualified Brick.Themes as B
myAttrMap :: B.AttrMap import qualified TaskMachine.UI as TM
myAttrMap = B.attrMap VTY.defAttr
[ ("taskList" <> "normal", withStyle VTY.bold $ B.fg VTY.cyan)
, ("taskList" <> "highlight", withStyle VTY.bold $ B.bg VTY.cyan)
, ("taskList" <> "urgent" <> "normal", withStyle VTY.bold $ B.fg VTY.yellow)
, ("taskList" <> "urgent" <> "highlight", withStyle VTY.bold $ B.bg VTY.yellow)
, ("taskList" <> "veryUrgent" <> "normal", withStyle VTY.bold $ B.fg VTY.red)
, ("taskList" <> "veryUrgent" <> "highlight", withStyle VTY.bold $ B.bg VTY.red)
, ("taskList" <> "overdue" <> "normal", withStyle VTY.bold $ B.fg VTY.magenta)
, ("taskList" <> "overdue" <> "highlight", withStyle VTY.bold $ B.bg VTY.magenta)
]
where withStyle = flip VTY.withStyle
data ResourceName = Asdf data ResourceName = Asdf
deriving (Eq, Ord) deriving (Eq, Ord)
@ -34,7 +23,7 @@ myApp = B.App
, B.appHandleEvent = B.resizeOrQuit , B.appHandleEvent = B.resizeOrQuit
, B.appStartEvent = \s -> return s , B.appStartEvent = \s -> return s
, B.appChooseCursor = B.neverShowCursor , B.appChooseCursor = B.neverShowCursor
, B.appAttrMap = \_ -> myAttrMap , B.appAttrMap = const $ B.themeToAttrMap TM.defaultTheme
} }
where where
myTestWidget = normal B.<=> urgent B.<=> veryUrgent B.<=> overdue myTestWidget = normal B.<=> urgent B.<=> veryUrgent B.<=> overdue

24
src/TaskMachine/UI.hs Normal file
View file

@ -0,0 +1,24 @@
{-# LANGUAGE OverloadedStrings #-}
module TaskMachine.UI
( defaultTheme
) where
import Data.Monoid
import qualified Brick as B
import qualified Brick.Themes as B
import qualified Graphics.Vty as VTY
defaultTheme :: B.Theme
defaultTheme = B.newTheme VTY.defAttr
[ ("taskList" <> "normal", withStyle VTY.bold $ B.fg VTY.cyan)
, ("taskList" <> "highlight", withStyle VTY.bold $ B.bg VTY.cyan)
, ("taskList" <> "urgent" <> "normal", withStyle VTY.bold $ B.fg VTY.yellow)
, ("taskList" <> "urgent" <> "highlight", withStyle VTY.bold $ B.bg VTY.yellow)
, ("taskList" <> "veryUrgent" <> "normal", withStyle VTY.bold $ B.fg VTY.red)
, ("taskList" <> "veryUrgent" <> "highlight", withStyle VTY.bold $ B.bg VTY.red)
, ("taskList" <> "overdue" <> "normal", withStyle VTY.bold $ B.fg VTY.magenta)
, ("taskList" <> "overdue" <> "highlight", withStyle VTY.bold $ B.bg VTY.magenta)
]
where withStyle = flip VTY.withStyle