make check bits yellow

This commit is contained in:
Jonathan Lamothe 2024-08-02 00:24:42 -04:00
parent 621d80418e
commit 7c0a10672f

View File

@ -30,7 +30,7 @@ import Brick.AttrMap (attrMap)
import Brick.Main (App (..), showFirstCursor) import Brick.Main (App (..), showFirstCursor)
import Brick.Util (fg, style) import Brick.Util (fg, style)
import Graphics.Vty.Attributes (Attr (..), MaybeDefault (..), bold) 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.Draw
import Hamming.App.Events import Hamming.App.Events
@ -45,7 +45,9 @@ mainApp = App
, appStartEvent = return () , appStartEvent = return ()
, appAttrMap = const $ attrMap (style 0) , appAttrMap = const $ attrMap (style 0)
[ ( marginAttr, fg green ) [ ( marginAttr, fg green )
, ( checkAttr, style bold ) , ( checkAttr
, (style bold) { attrForeColor = SetTo yellow }
)
, ( zeroAttr, fg red ) , ( zeroAttr, fg red )
, ( validAttr , ( validAttr
, (style bold) { attrForeColor = SetTo green } , (style bold) { attrForeColor = SetTo green }