jlamothe/hamming
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

make check bits yellow

This commit is contained in:
Jonathan Lamothe 2024-08-02 00:24:42 -04:00
parent 621d80418e
commit 7c0a10672f
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Hamming/App.hs
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
@ -44,9 +44,11 @@ mainApp = App
, appHandleEvent = eventHandler , appHandleEvent = eventHandler
, appStartEvent = return () , appStartEvent = return ()
, appAttrMap = const $ attrMap (style 0) , appAttrMap = const $ attrMap (style 0)
[ ( marginAttr, fg green ) [ ( marginAttr, fg green )
, ( checkAttr, style bold ) , ( checkAttr
, ( zeroAttr, fg red ) , (style bold) { attrForeColor = SetTo yellow }
)
, ( zeroAttr, fg red )
, ( validAttr , ( validAttr
, (style bold) { attrForeColor = SetTo green } , (style bold) { attrForeColor = SetTo green }
) )