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

fixed abacus drawing

This commit is contained in:
Jonathan Lamothe 2024-08-21 20:55:59 -04:00
parent ec905651ef
commit 052901ed27
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Abacus/App/Widgets.hs
View File

@ -28,15 +28,12 @@ module Abacus.App.Widgets (abacusW) where
import Brick import Brick
( Widget ( Widget
, freezeBorders
, hBox , hBox
, hLimit , hLimit
, str , str
, vBox , vBox
, withBorderStyle
) )
import Brick.Widgets.Border (hBorder) import Brick.Widgets.Border (border, hBorder)
import Brick.Widgets.Border.Style (unicode, unicodeBold)
import Lens.Micro.Platform ((^.)) import Lens.Micro.Platform ((^.))
import Abacus import Abacus
@ -47,10 +44,7 @@ import Abacus.App.Widgets.Internal
abacusW :: AppState -> Widget () abacusW :: AppState -> Widget ()
abacusW s = hBox abacusW s = hBox
[ abacusLeftW s [ abacusLeftW s
, withBorderStyle unicodeBold $ , border $ beadsW $ s^.abacus
freezeBorders $
withBorderStyle unicode $
beadsW $ s^.abacus
, abacusRightW s , abacusRightW s
] ]