make check bits yellow
This commit is contained in:
parent
621d80418e
commit
7c0a10672f
|
@ -30,7 +30,7 @@ import Brick.AttrMap (attrMap)
|
|||
import Brick.Main (App (..), showFirstCursor)
|
||||
import Brick.Util (fg, style)
|
||||
import Graphics.Vty.Attributes (Attr (..), MaybeDefault (..), bold)
|
||||
import Graphics.Vty.Attributes.Color (green, red)
|
||||
import Graphics.Vty.Attributes.Color (green, red, yellow)
|
||||
|
||||
import Hamming.App.Draw
|
||||
import Hamming.App.Events
|
||||
|
@ -44,9 +44,11 @@ mainApp = App
|
|||
, appHandleEvent = eventHandler
|
||||
, appStartEvent = return ()
|
||||
, appAttrMap = const $ attrMap (style 0)
|
||||
[ ( marginAttr, fg green )
|
||||
, ( checkAttr, style bold )
|
||||
, ( zeroAttr, fg red )
|
||||
[ ( marginAttr, fg green )
|
||||
, ( checkAttr
|
||||
, (style bold) { attrForeColor = SetTo yellow }
|
||||
)
|
||||
, ( zeroAttr, fg red )
|
||||
, ( validAttr
|
||||
, (style bold) { attrForeColor = SetTo green }
|
||||
)
|
||||
|
|
Loading…
Reference in New Issue
Block a user